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PREFACE 


This  effort  was  conducted  by  Purdue  University  under  the  sponsorship  of 
the  Rome  Air  Development  Center  Post-Doctoral  Program.  Mr.  Jon  Valente  of 
RADC  was  the  task  project  engineer  and  provided  overall  technical  direction 
and  guidance.  Prof.  B,  J.  Leon  directed  this  research  and  the  preparation 
of  this  report  at  Purdue  University.  The  authors  of  the  report  are  B.  J.  Leon 
and  H.  K.  Thapar. 

The  RADC  Post-Doctoral  Program  is  a  cooperative  venture  between  RADC  and 
some  sixty-five  universities  eligible  to  participate  in  the  program.  Syracuse 
University,  Clarkson  College  of  Technology  and  the  Georgia  Institute  of  Tech¬ 
nology  act  as  prime  contractor  schools  with  other  schools  participating  via 
sub-contracts  with  the  prime  schools.  The.  U.S.  Air  Force  Academy  (Dept,  of 
Electrical  Eng i neer i ng) ,  Air  Force  Institute  of  Technology  (Dept,  of  Electri¬ 
cal  Engineering)  and  the  Naval  Post  Graduate  School  (Dept,  of  Electrical  Engi¬ 
neering)  also  participate  in  the  program. 

The  Post-Doctoral  Program  provides  an  opportunity  for  faculty  at  partici¬ 
pating  universities  to  spend  up  to  one  year  full  time  on  exploratory  develop¬ 
ment  and  problem-solving  efforts  with  the  post-doctoral s  splitting  their  time 
between  the  customer  location  and  their  educational  institutions. 

Further  information  about  the  RADC  Post-Doctoral  Program  can  be  obtained 
from  Jacob  Scherer,  RADC/RBC,  Griffiss  AFB,  NY,  13*4*41,  telephone  AV  587-25*43, 
COMM  (315)  330-25*43. 

This  document  is  the  final  report  for  Task  7  of  Purdue  University's  Sub¬ 
contract  from  Clarkson  College  of  Technology.  The  task  was  to  "Develop  and 
Apply  Symbolic  Methods  to  the  Vol terra  Series  Approach  to  Nonlinear  Circuit 
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CHAPTER  1 


INTRODUCTION 


1-1.  Statement  of  the  Objectives 

In  the  analysis  of  nonlinear  systems,  two  main  classes  of  solutions  are 
generally  sought:  1)  transient,  and  2)  steady  state.  The  basic  goal  of  this 
investigation  is  to  obtain  the  sinusoidal  steady-state  solution  of  nonlinear 
circuits  via  the  Volterra  series  method  C1-143. 

The  most  commonly  used  present-day  approach  for  analyzing  nonlinear 
systems  is  numerical  integration  C203.  The  nonlinear  differential  equations 
are  integrated  from  some  initial  time,  t^,  to  some  final  time,  t^.  When  the 
sinusoidal  steady-state  response  is  sought,  the  value  of  t^.  chosen  is  usual¬ 
ly  large  to  insure  that  all  transients  have  been  eliminated.  A  subsequent 
fast  Fourier  analysis  yields  the  frequency  components  of  the  output 
response.  A  more  efficient  method  for  obtaining  the  sinusoidal  steady-state 
response  is  to  pose  the  analysis  problem  as  a  two-point  boundary  value  prob¬ 
lem  and  then  apply  Newton’s  method  C203.  This  approach,  however,  allows  for 
only  single  frequency  inputs. 

The  problems  involved  in  the  numerical  integration  method  are  well 
known  C20].  These  problems  notwithstanding,  there  are  other  inefficiencies. 
When  one  is  solely  interested  in  the  steady-state  response,  the  computation 
expended  in  reaching  t^  is  a  waste.  This  inefficiency  grows  as  the  poles  of 
the  linearized  system  move  close  to  the  imaginary  axis,  as  is  often  the  case 
in  many  quasi-linear  communication  circuits. 

Other  methods  such  as  the  harmonic  balance  or  the  describing  function 

method  are  seldom  used,  simply  because  the  assumption  behind  these  methods 

render  them  undependable.  The  Picard  iteration  method  C 1 41  is  often  used  in 

nonlinear  systems  analysis.  This  method  also  has  limitations  when  used  for 
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computer-aided  analysis,  particularly  when  multi-tone  inputs  are  present. 

The  fundamental  intent  behind  this  report  is  to  examine  the  computa¬ 
tional  aspect  of  the  Volterra  series  when  used  for  the  steady-state  analysis 
of  circuits  with  multiple  nonlinearities  and  multiple  multi-tone  input 
sources.  A  basic  algorithm  for  adapting  this  method  for  computer-aided 
analysis  is  developed.  Its  implementation  as  a  digital  computer  program, 
entitled  PRANC  (Program  for  Analyzing  Nonlinear  Circuits),  is  also  included 
in  this  report. 

1-2.  Organization  of  the  Report 

After  this  introductory  chapter,  this  report  contains  the  following 
five  chapters. 

Chapter  2,  entitled  "Volterra  Series  Method",  discusses  the  analysis 
method  which  forms  the  basis  of  this  investigation.  A  systematic  approach 
for  system  characterization  in  the  transform  domain  is  developed.  The 
determination  of  the  sinusoidal  steady-state  response  for  multi-tone  inputs 
from  the  system  characterization  is  also  developed. 

Chapter  3  considers  the  computational  aspect  of  the  Volterra  series 
method.  An  algorithm,  which  uses  semi-symbolic  analysis  C201,  is  developed 
for  the  efficient  implementation  of  this  method  on  a  digital  computer.  An 
overview  of  PRANC  is  also  presented  in  this  chapter. 

Chapter  4  provides  the  User's  guide  for  PRANC.  Several  examples  to  il¬ 
lustrate  the  use  of  this  program  are  included  here. 

Chapter  5  contains  the  Programmer's  guide  for  PRANC.  Each  sub-program 
listing,  together  with  its  functions,  is  documented  in  this  chapter. 

Finally,  Chapter  6  is  reserved  for  some  concluding  remarks. 
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CHAPTER  2 


VOLTERRA  SERIES  METHOD 


2-1 .  Introduction 

Nonlinear  systems  that  admit  a  Volterra  series  description  are  com¬ 
pletely  characterized  by  their  nonlinear  impulse  response  functions  or  the 
generalized  transfer  functions,  which  are  the  multi-dimensional  transforms 
of  the  nonlinear  impulse  response  functions.  Thus,  any  analysis  of  non¬ 
linear  systems  via  the  Volterra  series  method  will  entail  the  determination 
of  either  one  of  these  functions. 

The  method  for  determining  the  generalized  transfer  functions  given  in 
C13]  will  be  presented  here.  This  method  relies  on  the  application  of 
multi-dimensional  transforms  to  a  set  of  differential  equations.  In  section 
2-2  the  multi-dimensional  transform  theory  is  introduced,  along  with  the  ap¬ 
plication  of  the  theory  to  specific  examples  which  will  be  subsequently  used 
in  deriving  the  generalized  transfer  functions.  In  section  2-3  the  general¬ 
ized  transfer  functions  for  an  r-th  order  scalar  nonlinear  differential 
equation  are  obtained.  Section  2-4  is  devoted  to  the  determination  of  the 
nonlinear  transfer  functions  of  a  general  multiple-node,  multiple- 
nonlinearity  circuit  with  a  single  input.  The  case  of  multiple  input 
sources  is  treated  in  section  2-5.  Section  2-6  shows  the  relationship 
between  the  terms  in  the  sinusoidal  steady-state  response  and  the  general¬ 
ized  transfer  functions. 

2-2.  Multi-dimensional  Transforms 


The  Laplace  transform  pair  of  a  one-dimensional  function,  fit),  is: 


dt 


(2-1) 


F(s)  =  / f(t)e" 


«•>  =■  12V /"F<s>'st  ds 

J  a-]  <*> 


For  a  multi-variable  function,  f (t^ ,t2,. • .,tn) ,  the  corresponding  multi¬ 


dimensional  transform  Cl 5 □  is: 


rs2'  * ' ' 'Sn^  =  J"  *  *  ^ •]  * ^2/ "  “  ‘  '^n^ ex^ ^-S1  *  1  ~ *  * "  sn^n^^1  *  *  *^^n  ^  ^ 

n-fold 


f(t,,...,t  )  =  - /•••/f(s1,.../s  )exp(s1t1  +  ***+s  t  )dsr..ds  (2-4) 

V  n  ..nJ,  1  n  11  nnl  n 

(2 tt j )  n-fold 


f ^ t ^ •  ,t^)  F(s^,...,sn) 


(2-5) 


Before  proceeding  further,  we  make  the  following  notational  definitions: 


F(s1  /S2' '  *  *'sn)  ~  ^ ^ f  ( t  ^ ,  1 2  f  •  •  •  f  t pj ) 


(2-6) 


f (t1,t2,...,tn)  =  i  CF(s1,s2,...,sn)3 


Whether  we  use  Fourier  transform  or  Laplace  transform  in  eqns.  (2-3) 

and  (2-4)  depends  on  the  contours  of  integration  and  values  of  s^,s2,. . .,sn« 

The  importance  of  the  region  of  convergence  when  dealing  with  unstable  and 

non-causal  linear  systems  is  well  known.  Here  we  assume  that  the  systems 

under  consideration  are  causal;  that  is,  the  VoLterra  kernels 
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hn(t-j,t2/..  .,tn)  =  0,  for  ..,tn  £  0-  Also,  in  general/  we  are  con¬ 

cerned  with  functions  (or  generalized  functions)  whose  region  of  convergence 
includes  the  imaginary  axis  in  each  variable,  so  that  the  Fourier  transform 
is  included  in  our  definitions. 

It  should  also  be  noted  that  most  of  the  properties  of  the  one¬ 
dimensional  transform  (linear  case)  carry  over  to  the  multi-dimensional 
case.  The  validity  of  this  statement  can  be  checked  elsewhere  C51. 

It  is  often  desirable  to  express  the  multi-variable  function, 

f (t^,t2/--*/tn),  as  a  simple  function  of  time,  f(t),  and  vice  versa.  If  all 

t.’s  are  restricted  to  be  identical  so  that  t  =  t,  =  t«  =  •••  =  t  ,  then 
^  l  c.  n 

flt^/t.,/.../^)  becomes  f(t).  Thus,  in  the  two  variable  case,  f(t)  can  be 
obtained  from  f(t^,t^)  by  evaluating  flt^/tj)  along  the  45°  Line  t^  =  t2» 
Similarly,  if  we  plot  f(t^,t2,t^)  in  a  three-dimensional  space,  then,  to  ob¬ 
tain  f(t),  we  are  only  interested  in  flt^tj,^)  along  the  line 
t^  =  tg  *  t-j.  The  idea  of  converting  a  nonlinear  function  of  one  variable  t 

into  a  product  of  linear  multi-variable  functions  will  be  used  repeatedly  in 

the  sequel.  One  must,  however,  bear  in  mind  that  the  ultimate  goal  is  to 

obtain  the  solution  of  the  differential  equation  as  a  function  of  time,  t, 

and  that  the  introduction  of  t^,tj,  etc.  are  merely  for  mathematical  manipu¬ 
lations. 

We  now  apply  multi-dimensional  transforms  to  some  specific  cases  which 
will  be  subsequently  used  in  sections  (2-3)  and  (2-4). 

2-2.1  Volterra  Series:  The  Volterra  series  relates  the  system  input  x(t)  to 
the  system  output  y(t)  as  follows*: 

♦Unless  otherwise  stated,  all  limits  of  integration  are  between  0  and  ® 
in  our  discussion  here. 
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y<t) 


i  /  h )  n  X(t-T  )dx. 

n=1  n-fold  n  1  n  i=1  11 


=  z  yn<t) 

n=1 


(2-8) 


where 


C  n 

i'  (t)  =(’•*•  J  h  (t.,. ,.,t  )  n  x(t-T.)dt. 

n  J  x  i  j  n  1 '  '  n  .  „  i  i 

n-fold  i=1 


(2-9) 


Introducing  dummy  variables  in  eqn.  (2-9)  we  can  write  yn(t) 

as: 


yn(t)  =  yn(t1't2'-"'tn)|t1=t2=...=tn=t 


/***  S  ..  "  X^i-Ti>dTi 

n-Told  1=1 


(2-10) 


Taking  the  n-dimensional  transforms  of  eqn.  (2-10),  we  get: 


rn(s1'’“'sn)  =  '■Cyn(t1/'*‘'tn 


=  /•••  /  h 

2n-fold 

Defining  =  on,  t^-r 

tn  s  VTn'  Vi  =  CTn-1+Tn-1' 
dan  =  dtn/  dan-1  =  dtn_v.... 


n-1 


d 


1'T2'”* 


'Tn> 


n 

n 

i  =1 


x(t .-t .)e  dx.dt.  (2-11) 


-  on_^ , . . .,t^-i ^  =  o ^ ,  and  therefore: 
'*1  =  Tl; 

=  dt^.  Substituting  these  quantities  in 


/ 


eqn.  (2-11)  and  performing  the  2n-fold  integrations  with  respect  to  and 


(2-12) 


r 


o.,  gives 


uhe 


Y  (s.,...,s  )  =  H  (s.,...,s  )  11  XCs.) 
n  1  n  n  1  n  i=1 


re  H  (s.,...,s  )  and  X(s.)  are  the  transforms  of  h  (t. ,t,, . . . ,t  )  and 
n  1  n  l  n  t  d  n 


x(t.)  respectively.  Therefore  the  transform  domain  description  of  eqn. 
(2-8)  becomes: 


Y(s1,s2,...,s  )  =  £  Hn<s1'-*-'sn>  -11.  X(si) 
n=1  i=1 


(2-13) 


If  the  input  x(t)  is  a  delta  function,  then  eqns.  (2-12)  and  (2-13)  reduce, 
respectively,  to: 


Y  (s.,...,s  )  =  H  (s.,s_,...,s  ) 
n  1 '  '  n  n  1'  2'  n 


(2-14) 


and 


Y(s^ .  *,sn)  -  S  ,  *  *  *  ,S|-|) 

n=1 


(2-15) 


Equations  (2-12)  through  (2-14)  will  be  us»d  repeatedly  in  section  (2-3). 

2-2.2  Nonlinear  Terms.  The  characteristics  of  nonlinear  elements  encoun¬ 
tered  in  many  nonlinear  dynamical  systems  can  be  represented  over  any  finite 
range  by  a  polynomial.  This  gives  rise  to  nonlinear  differential  equations 
with  polynomial  type  nonlinear  terms.  When  such  elements  are  used  in  a  sys¬ 
tem,  the  equilibrium  equations  contain  integrals  and  derivatives  of  the  po¬ 
lynomials.  We  can  apply  multi-dimensional  transforms  to  these  nonlinear 
terms  by  first  converting  an  nth  power  to  an  n-fold  product  of  terms  with 
different  domains.  More  detail  on  these  derivatives  is  given  in  C131. 

I 

jr 

'i 


jyll(t)  Term;  Consider  an  n-dimensional  time  space  with  variables  t^, 

i=1,2,...,n.  From  the  single  variable  function  y(t)  define  an  n-variable 

n 

functional  y(t^  ,t2,.  •  .,tn)  =  II  y(t.).  Then 

i  =1 

yn<t)  =  ylt1,t2/.../tn)  V  t •  =  t  (2-16) 

and 


Y(s^#... /sn) 


n 

n  Y(S.) 

i=1 


(2-17) 


Y~(i)  Term: 


d 

3t 


yn(t)  = 


It  ^ 


’w 


--V*' 


(2-18) 


Y(s. 


=  (s^  +  s2  +  ...  sn)Y(s1)...Y(sn) 


(2-19) 


/  y— (t)dt  Term: 

/ yn(t)dt  =J  yn(i1-t,T2-t,...,Tn-t)dt  (2-20) 

Letting  t.  -  t  =  t.,  and  taking  the  transform  of  eqn.  (2-20),  we  get 

Y(s1,s2,...,sn>  =  Yn(s1,...,sn)/(s^+s2+...+sn)  (2-21) 


F 


'  9 


8 


* _ 1 _ -1  n  Y(s.; 

s1+s2+...+snJi=1  i 


(2-22) 


The  general  forms  in  eqns.  (2-12),  (2-19)  and  (2-27)  will  be  used  in  sec¬ 
tions  (2-3)  and  (2-4).  The  salient  feature  in  each  of  these  equations  is 
how  an  nth  degree  polynomial  function  in  the  time-domain  is  represented  by 
the  nth-order  product  of  the  transform  of  the  function  in  the  transform 
domain.  It  is  this  product  structure  which,  analogous  to  the  case  of  linear 
system  analysis,  makes  the  analysis  of  nonlinear  systems  easier  via  the 
transform-domain  approach. 


2-3 .  /I  Nonlinear  Differential  Equation: 

In  this  section,  we  present  a  method,  based  on  applying  the  multi¬ 
dimensional  transforms  to  nonlinear  differential  equations,  to  determine  the 
response  of  a  nonlinear  system  with  a  functional  power  series  type  of  non¬ 
linearity.  The  nonlinear  differential  equation  considered  is  the  following: 


N 

L^ylt)]  +  l2[Zanyn(t)]  =  x(t)  (2-23) 


where  x(t)  and  y(t)  are  system  input  and  output,  respectively,  is  a 

linear  differential  operator: 


R  rir 


r=0dt 


(2-24) 


and  l>2  is  /,  or  a  constant,  or  a  sum  of  these  operators.  It  should  be 

noted  that  the  linear  operator,  L^,  operates  on  a  polynomial  function  of 


y(t) . 
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We  now  present  an  approach  whereby  the  nonlinear  differential  equation 
(2-23)  is  solved  by  a  bootstrapping  operation  by  first  dissolving  it  into  a 
set  of  linear  differential  equations  with  nonlinear  inputs.  Multidimension¬ 
al  transforms  are  then  applied  to  these  new  equations  to  obtain  the  Volterra 
series  solution. 

There  are  many  different  methods  of  rendering  a  nonlinear  differential 
equation  into  a  sequence  of  linear  differential  equations  involving  succes¬ 
sively  higher  order  outputs  with  known  nonlinear  input  terms.  We  use  the 
approach  outlined  in  Cl  2D . 

Assume  that  the  input  in  eqn.  (2-23)  is  of  the  form 

x(t)  =  ev(t)  (2-25) 

The  dummy  variable  e  helps  to  keep  track  of  the  order  of  the  terms:  a  term 
with  coefficient  en  signifies  an  nth  order  term.  This  can  be  seen  easily  by 
substituting  eqn.  (2-25)  in  eqn.  (2-9),  which  yields: 

f  n 

y  (t)  =  en/...J  h_(T1/,...,T  )  n  v(t-t  )dt-  (2-26) 

n  n-fold  n  1  n  i=1 

Let  us  assume  that  r(t)  is  the  response  to  the  input  v(t)  in  eqn  (2-23). 
Then,  according  to  the  Volterra  series  expansion,  as  per  eqn.  (2-8)  and 
(2-9),  the  n-th  order  response  is: 

r  (t)  =  /.../  h(x.,..., x  )  n  v(t— t  >dT.  (2-27) 

n  n=fold  i-1 

Comparing  (2-27)  and  (2-26),  we  obtain  the  following  relationships: 


(2-28) 


yn(t)  =  c"rn(t) 


and  therefore,  as  per  eqn.  (2-8), 


y(t)  =  E  Vn(t)  =  £  (t> 

n=1  n=1 


(2-29) 


We  now  have  two  differential  equations  which  relate  r(t)  and  v(t).  First, 
equation  (2-23)  can  be  re-written  as: 


L[r(t)l  +  L2C  E  anrn(t)3  =  v(t) 
n=2 


(2-30) 


Second,  after  substituting  eqn.  (2-29)  into  (2-23),  we  get: 


L  C  E  c"r  (t)3  +  L  C  E  <a.  E  e\(t))jl 
1  n=1  "  2  j=2  Jn=1  " 


cv(t) 


(2-31) 


Thus  in  order  to  solve  eqn.  (2-23),  we  can  solve  eqn.  (2-31)  for  r  (t),  n  = 

n 

1,2,...  and  substitute  in  eqn.  (2-29)  to  solve  for  y(t)  after  setting  e  =  1 . 

Setting  e  =  1  implies  that  x(t)  =  v(t),  and  therefore  y(t)  =  r(t)  =  Er„^* 

n 

The  introduction  of  e  is  a  mathematical  artifice  which  helps  to  equate  coef¬ 
ficients  of  en  on  both  sides  of  eqn.  (2-31),  thereby  yielding  linear  dif¬ 
ferential  equations  (involving  successively  higher  order  outputs)  with  non¬ 
linear  inputs. 

To  solve  for  r^(t),  the  linear  system  response,  we  equate  coefficients 
of  c  on  both  sides  of  eqn.  (2-31),  thus  yielding  the  following  equation: 


L^Cr^ (t)}  =  v(t) 


(2-32) 


Similarly  we  equate  coefficients  of  c2,  e5,  c4,  e5,  and  so  on,  on  both  sides 

of  eqn.  (2-31)  to  obtain  the  following  equations: 

11 


(2-33) 


L^C^Ct)]  +  L2*'a2r1^t^  =  0 

L1  Cr3  (t)l  +  L2C2a2r1  (t)r2(t)  +  a^Ctn  =  0  (2-34) 

L1CrA(t)]  +  L2Ca2(?r1  (t)r3(t)  +  r^t))  +  3a3r^(t)  r?(t) 

+  a4r^(t)D  =  0  (2-35) 

L1Cr^(t)]  +  l_2C2a2r.j  (t)  r^(t)  +  a^  (3r^ (t) r^ (t)  + 

+  3r.(t)r|(t))  +  4a .  r,  (t)  r_(t)  +  a-r^t)]  =  0  (2-36) 

12  4  12  5  1 


To  solve  for  the  generalized  transfer  functions  of  eqn.  (2-30),  we  take  the 
1 -dimensional  transform  of  eqn.  (2-32)  and  obtain: 


l-j  (s1)R1  (s^)  =  V(s^)  (2-37) 

If  v(t)  =  o(t),  then  V(s^)  =  1,  and  therefore,  according  to  eqn.  (2-14),  we 
have 


Ri(si5  =  Hi(si}  =r7(i7 


(2-38) 


To  solve  for  the  second-order  transfer  functions,  ^(s^s^),  we  extend  the 

second  term  of  eqn.  (2-33)  to  a  two  dimensional  domain.  Since  the  physical 

system  is  not  defined  when  t^  t  tj  we  can  assume  that  the  extension  of  eqn. 

(2-33)  holds  for  all  t^  and  t2*  Transforming  via  eqn.  (2-17)  gives 
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(2-39) 


*tsp)  R2  ( s -j  ,  s ^ ^  apLp  ^ ^  1  "^s 2^  ^1  ^  ®  1 )  ^1  ( s 2^  ~  0 


Using  (2-14)  and  (2-38)  in  eqn.  (2-39),  we  obtain 


Rp(s^,sp)  =  Hp(s.j,Sp) 


32L2Cs^S2)H<|  (s<^)H<j  ( s  p ) 
(s^+Sp) 


(2-40) 


For  R^  and  higher  terms  we  find  that  the  order  of  variables  t^,  t^,  t^ 
seems  important.  Physically  this  should  not  be.  We  can  symmetrize  by 
averaging.  That  is,  we  sum  each  of  the  nth  order  transfer  function  over  all 
permutations  of  its  arguments  and  divide  by  the  number  of  components  in  the 
sum.  We  use  an  overbar  to  represent  the  symmetrized  function. 


L.j  (s.j+Sp+s3)R3(s.|,Sp,s3)  3*  Lp  ( s ^  ^ Sp )  C2 a pR ^  ( s ^ )  Rp  ( Sp , s3 ) 


+  a^R^  (s^)R^  (Sp)R^  (s-j)3  =  0 


(2-41) 


Again,  using  eqns.  (2-38),  (2-40),  and  (2-14),  we  get 


R3 ( s<j , sp, s3 )  —  Hj(s^,Sp,s-j)  =  —  Lp ( s ^ +sp+ s-^ )  C2a pH^  ( s ^ ) Hp ( sp , s*^ ) 


pVS-jTSpTS-j/Lc.apn.j  vs^/npv&p,s-jy 


+  a3H1(s1)H1  (Sp)H1(s3)3/L1  (s^Sp+s-j) 


(2-42) 


In  a  similar  manner,  we  can  derive  by  inspection: 


H4^s1's2's3's4^  = 


Lp( X  s.)Ha2(2H1(s1)H3(s2,s3,s4) 
i  =1 


t  Hp(s^,Sp)Hp(s3,s4))  ^  3a3H^(s^)H^(sp)Hp(s3,s4) 


l 


(2-43) 


4  4 

+  a  £  H  (s  ))3/L  (  £  s.) 
4  i=1  1  i-1 


and 


S2'S3'S4'S5^ 


-l?(£ 

i=i 


+  3a3(H1(s1lH1(s2)H^(s3,s4/s5) 


+  H,  (s^)H2(S2/S3))H2(s4/.s3> 

- 5  5 

+  4a4H1 (s1)H1 (s,)H1 (s3)H2(s4/s5)  +  as  £  H1 (s.)l/L1 ( £  s .) (2-44) 


The  use  of  symmetric  transfer  functions  is  not  merely  for  notational 
convenience,  but  is  necessitated  by  the  method  we  use  for  introducing  the 
parameters  t^t-,,...,  before  taking  the  transforms.  Consider  a  third  order 
term  v-^(t)  formed  as  the  product  of  a  first  order  term  v^(t)  and  a  second 


order  v2(t) 

.  On  the  three  dimensional  (t^,t2, t^) 

we 

could 

write 

v^  (t^,t2,t-j) 

as  v^(t^)v2(t2,t3),  v^(t2)v2(t^,t3),  or 

v1 (t^)v2(ti,t2) 

.  The 

first  term 

has  transform:  (s^ ) V9 ( s2,s3) ;  the 

second 

term 

has : 

V1 (s-,) V2(s1 ,s3) ;  and  the  third  has  transform:  ( s^) (s^ ,s2) .  When  V2(*,') 
is  not  symmetrical  in  its  arguments,  each  transformed  quantity  above  will 
yield  a  different  value.  Thus,  it  becomes  necessary  to  use  symmetric 
transfer  functions  wnen  performing  numerical  computations  to  obtain  the  sys¬ 
tem  response.  It  can  be  shown  that  the  response  is  unchanged  when  sym¬ 
metrized  transfer  functions  are  used.  Since,  in  the  final  analysis  we  want 

the  value  of  v^(  1 1  ,t-,,  t3 )  only  when  t1=t?=t3,  we  may  write 
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( 


v^(t)v2<t)  =  y  Cv^  (t^)  V2<t2^t^)  +  vi  ttj)  +  v1(t3)v2(t1/t2>l.  This 

does  not  change  the  contribution  due  to  v^CtWjCt)  in  the  system  response. 
In  the  remaining  part  of  this  report  we  will  assume  the  generalized  transfer 
functions  to  be  symmetric  in  their  arguments. 

To  conclude  this  sub-section,  we  summarize  the  approach  for  obtaining 
the  generalized  transfer  functions  of  a  nonlinear  system  and  also  comment  on 
the  important  ramification  of  the  method.  By  introducing  a  dummy  variable 
in  the  nonlinear  differential  equation  characterizing  the  system,  a  set  of 
differential  equations  of  the  following  form  was  obtained: 

LCrn(tn  +  f (rn_1 (t))  =0,  n  =  2,3,...  (2-45) 

where  L  is  the  linear  system  operator  and  f(*)  is  a  nonlinear  function  of 

rn_^(t),  rn_2 (t) ,...,r^ (t) .  r^  (t)  is  the  first-order  response,  which  is 

simply  the  response  of  the  linear  system.  The  relationship  in  eqn.  (2-45) 

is  clearly  a  recursive  one,  and  can  be  used  to  solve  for  r^lt)  in  terms  of 

rn_^(t),  etc.  This  is  done  by  first  finding  the  n-dimensional 

transform  of  f(r  .(t))  as  discussed  above.  We  then  use  the  transform  of 
n- 1 

eqn.  (2-44)  to  solve  for  Rn(s^ , . . .,sn) ,  the  nth-order  transfer  function  when 
the  input  v(t)  is  an  impulse.  The  transform  of  fC)  is  done  by  inspection 
with  the  help  of  the  results  of  section  (2-2).  The  n-dimensional  transform 
of  LCr  (t)3  is  shown  to  be  L(s.+s_+...+s  )R  (s.,s_,...,s  ).  With  all  this 
information,  eqn.  (2-45)  is  easily  solved  for  the  generalized  transfer  func¬ 
tions. 

2-4.  Multiple-Node,  Multiple-Nonlinearity  Circuit  Analysis 

Many  analysis  and  design  problems  in  circuits  and  systems  involve  one 
or  at  most  a  few  nonlinear  elements  in  an  otherwise  linear  time-invariant 
circuit  or  system.  When  a  single  nonlinear  element  is  present,  the  dif- 
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ferential  equation  (2-23)  and  the  material  of  section  (2-2)  will  be  adequate 
for  analyzing  the  nonlinear  circuit.  For,  in  such  a  case,  the  linear  cir¬ 
cuit  can  be  characteri zed  by  a  convolution  kernel  (via  the  Thevenin  or  Nor¬ 
ton  Theorems)  to  give  the  overall  Volterra  integral  equation  C143,  which  can 
also  be  cast  in  a  differential  equation  form,  simitar  to  eqn.  (2-23). 

However,  when  multiple  nonlinear  elements  are  imbedded  in  an  otherwise 
linear  time-invariant  circuit,  the  analysis  entails  the  solution  of  a  system 
of  nonlinear  differential  equations.  The  approach  developed  in  section 
(2-2)  for  the  scalar  case  is  still  applicable,  but  must  be  extended  to  solve 
the  system  of  nonlinear  differential  equations. 

The  number  of  equations  to  be  solved  depends  on  the  number  and  the  type 
of  nonlinear  elements  considered.  When  only  independent  type  nonlinear  ele¬ 
ments  are  considered,  the  number  of  equations  is  less  than  or  equal  to  the 
number  of  nonlinear  elements  (assuming  that  the  output  is  across  one  of  the 
nonlinear  elements;  otherwise,  an  extra  equation  relating  the  nonlinear  ele¬ 
ment  voltages  (currents)  and  the  output  voltage  (current)  is  needed  to  solve 
for  the  output).  The  nonlinear  differential  equations  in  such  a  case  is 
again  derived  by  obtaining  the  Thevenin  (Norton)  equivalent  circuit  (for  the 
linear  part  of  the  nonlinear  circuit)  at  each  of  the  ports  at  which  the  non¬ 
linear  elements  are  present.  When  dependent  type  nonlinear  elements  are 
also  allowed,  the  analysis  becomes  more  complicated;  for,  in  such  a  case, 
the  controlling  variables,  which  may  be  across  a  linear  element,  must  be 
solved  for  and  substituted  in  the  dif ferenti'al  equation  for  the  nonlinear 
element. 

Previous  works  C7, 10-123  for  determining  the  generalized  voltage  ratio 

transfer  functions  of  lumped  nonlinear  circuits  have  applied  the  harmonic 

input  method,  to  the  nodal  analysis.  Our  discussion  in  this  section  for 
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solving  multiple-node,  multiple-nonlinearity  circuits  will  be  centered 
around  the  application  of  multi-dimensional  transforms  to  a  cutset  type 
analysis.  Thus,  we  will  be  solving  for  the  generalized  voltage  ratio 
transfer  functions.  As  we  proceed  with  our  discussion,  it  will  become  ap¬ 
parent  that  a  cutset  analysis  approach  is  the  most  natural  way  of  solving 
for  the  generalized  voltage-ratio  transfer  functions.  We  now  develop  the 
procedure. 

The  first  step  in  the  analysis  is  to  represent  each  nonlinear  element 
by  a  polynomial  expansion.  Thus,  in  the  distortion  analysis  of  transistor 
amplifiers  C7],  the  exponential  type  controlled  sources  in  the  Ebers-Moll 
model  are  first  represented  by  a  Taylor  series  expansion  of  the  function 
about  the  quiescent  point,  thereby  yielding  a  polynomial  in  terms  of  the  in¬ 
cremental  variables.  The  types  of  nonlinear  elements,  and  their  series 
representation,  that  are  commonly  encountered  are: 

1.  No  memory,  independent  nonlinearity  (Nonlinear  Resistor) 

40 

i  =  F(v)  =  Ea-v3  (2-46) 

j=1  3 

2.  No  memory,  dependent  nonlinearity 

00  o6 

i  =  G(u,v)  =  E  Eaiku3vk  ,  a  =  o  (2-47) 

j=0k=0  3*  uu 

3.  Capacitive,  independent  nonlinearity 
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i  =  ^a(v)  =  a: 


j=1 


(2-48) 


4.  Inductive,  independent  nonlinearity 

/t  ® 

4>(v)dt  =  a.v]dt  (2-49) 

—  CD  —  Qt>  j  ~  ^  •* 

where 

i  =  incremental  current  through  the  element 
v  =  incremental  controlling  voltage 
u  =  incremental  controlling  voltage 

The  general  procedure  employed  to  solve  for  the  nonlinear  transfer 
functions  of  a  single-input,  single-output  nonlinear  circuit  using  the 
cutset  analysis  approach  is  illustrated  in  Fig.  2-1  by  considering  each  of 
the  four  nonlinear  element  types  mentioned  above. 

Consider  the  nonlinear  circuit  N,  shown  in  Fig.  2-1 (a),  containing  a 
nonlinear  resistor,  a  nonlinear  dependent  source,  a  nonlinear  capacitor,  and 
a  nonlinear  inductor,  where  each  nonlinear  element  is  voltage  controlled. 
The  procedure  begins  by  identifying  all  the  nonlinear  elements,  as  shown  in 
Fig.  2-1 (b) .  We  note  that  the  four  nonlinear  elements  depend  on  six  vol¬ 
tages.  The  next  step  is  to  lump  the  linear  parts  of  the  nonlinear  elements 
with  the  existing  linear  network  to  form  the  augmented  linear  network.  The 
square,  cubic,  quartic,  etc.  terms  of  the  nonlinearity  are  treated  as  non¬ 
linear  current  sources,  indicated  by  i  £,  meaning  the  nth  order  current 
source  at  port  k.  Since  the  dependent  source,  g(v^,v^),  depends  on  voltages 
v^  and  v^,  we  also  extract  these  as  ports.  Thus,  altogether  we  end  up  with 

an  8-port  linear  network,  as  shown  in  Fig.  2-1 (c). 
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The  output  variables  to  be  found  are  the  voltages  at  these  eight  ports. 
The  augmented  linear  network  is  denoted  by  N'  in  Fig.  2-1 (c).  To  solve  for 
the  voltage  vector  v^  =  Cv^  V2  v-j  ...  Vg3,  we  immediately  recognize  that  the 
branches  across  these  voltage  variables  must  be  selected  as  part  of  the  tree 
C20D.  Clearly,  some  of  the  other  branches  in  the  augmented  linear  network 
may  also  appear  as  part  of  the  tree.  These  will  then  appear  as  voltage 
variables  in  the  cutset  equations  for  the  augmented  linear  network.  Since 
there  is  no  need  for  these  additional  variables,  we  can  reduce  the  dimen¬ 
sionality  of  our  equations  by  a  systematic  elimination  of  these  unwanted 
variables.  In  the  case  under  consideration,  we  should  be  left  with  only  the 
vector  \/  =  Cv^  v^  ...  VgD  as  the  unknown  vector.  Each  of  these  8  ports  will 
have  a  set  of  transfer  functions  of  order  1  to  n  associated  with  it.  Our 
task  here  is  to  solve  for  these  transfer  functions. 

At  this  point,  we  make  the  following  general  notational  definitions: 


Hr  ■  •,Sl) 


h£<s.,...,s. ) 


H^Cs^St,.  *  —  f 


(2-50) 


H™(s^,s2,...,S|() 


where 


H?  s  kth  order  nonlinear  transfer  function  from  the  input  to  the  jth  port; 
k 


m  =  8  in  our  example  here. 


v(t)  =  Cv^t)  v2Ct)  ...  vm(t)J 


(2-51) 


where  v^  =  voltage  at  the  ith  port 


The  cutset  equations  for  the  m-port  nonlinear  network  can  be  written 


Y  (p)v^  +  F(v)  +  G (u, v)  +  p£(  v)  +  —  ^(v)  = 


Cv  /z  (pHCI  0  0  ...  01T 

g  g 


(2-52) 


where 


differential  operator. 


Reduced  admittance  matrix  for  the  p-port  augmented  linear  network 


vector  composed  of  all  nonlinear  currents  through  the  zero  memory 
independent  nonlinearity 


G(u,v)  =  vector  composed  of  all  nonlinear  currents  through  the  zero  memory 
dependent  nonl inear i t i es 


vector  composed  of  all  nonlinear  currents  through  the  nonlinear 
capacitive  nonlinearities 


vector  composed  of  all  nonlinear  currents  through  the  nonlinear 
inductive  elements. 


Vp) 


source  impedance 


Since  the  linear  parts  of  the  functions  F(’),  G(’),  Q(*),  and  ♦(•)  in  eqn. 
(2-46)  through  (2-49)  have  been  lumped  together  with  the  linear  part  of  the 
network,  the  general  form  of  these  functions  will  be  as  follows: 


•  •  • 


(2-53) 


I<v)  =  i2(v)  +  Z^v)  +  Z^v)  + 

where 

Z2(v)  is  a  quadratic  function  of  v^ 
Z^(v)  is  a  cubic  function  of  v^ 
Z4(v)  is  a  quartic  function  of  v^ 


_Z(#)  being  £(•>,  GO),  QO),  or  $(•).  Thus,  eqn.  (2-53)  can  be  re-written 
as : 


where  i ^(t)  denotes  vectors  of  2nd  and  higher  order  current  sources  due  to 
F_(v)_,  G(  u,  v)  ,  pQ(y_),  and  l<l>(y).  The  mathematical  artifice  used  in  section 
(2-2)  could  have  been  applied  here  also  to  obtain  the  form  of  all  the  non¬ 
linear  current  source  terms,  j^lt).  For  the  sake  of  brevity,  we  will  not 
use  that  approach  here,  but  simply  use  the  results  of  section  (2-2)  to  iden¬ 
tify  the  different  order  current  sources  due  to  different  nonlinearities. 
These  are  summarized  in  Table  2-1,  where  v^t)  denotes  the  ith  order 
response  voltage  v(t),  which  control  the  nonlinear  element  characteristics. 
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Table  2-1.  Nonlinear  Current  Sources  in  multiple-node,  multiple-nonlinearity 


circuit  analysis. 

Nonlinear  Resistor,  £(v) : 
k  =  2:  a2Cv1T2 
k  =  3:  2a2Cv3  v^+a^Cv3}3 
k  =  4:  a2c?.v1v3+(v2)2T+3a3Cv132v2+a4Cv134 


Nonl inear  Dependent  Nonlinearity  G(u^v) : 


f\i 

(1 

a20Cu  3  + 

,  r  1,2 
a02Cv  1 

+  a^u^v1 

k  =  3: 

a30Cu133  + 

a03Cv13 

3  +  a21Cu132v1  + 

a^u^v1]2  + 

2a20u1u2  + 

2aQ2^\2  ♦ 

a^Cu^v2 

+  u2v3] 

k  =  4:  a40CuV  +  a^CvV  +  a^^Cv1:3  +  a^CuVcvb2  + 

a^^u^3  +  Cu232>  +  a11(u3v1  +  uV  +  u  2v2)  +  a()2C2v1v3  + 

r  A  ,  r  1-.2  2  .  T  r  1-.2  2  A  ,r  1,2  2  .  ,12  1.. 

Cv  1  )  +  3a3^Cu  3  v  +  3a03^v  3  v  +  a21  3  v  +  2uuv)+ 

,  2r  1,2  ^  ,112, 
a^Cu  Cv  J  +  2u  v  v  ) 

Nonlinear  Capacitive  Nonlinearity  pQ (v) : 

k  =  2:  a-jpCv1!2 

k  =  3:  2a2pCv”' v21+a3pCv'' l3 
k  =  4:  a2p (2 v^ v3 +Cv2]2 ) +3a3pCv^ 32 v2+a4pC v^ 34 


Table  2_-1_  (contd.) 

Nonlinear  Inductive  Nonl ineari ty,  C1_/£]_$  (v) 


k  =  2: 


^v1]2 


k  =  3: 


P  P 


k  =  4:  — ^vV+Cv2]2)*— ^ 
P  P 


cvWAvV 


< 
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We  observe  that  the  nonlinear  current  source  terms  in  Table  2-1  are 
similar  to  the  nonlinear  terms  whose  transforms  were  derived  in  section  2-2, 
except  for  the  nonlinear  dependent  source  terms,  which  are  functions  of  two 
controlling  voltages  u  and  v.  The  form  of  the  transforms  of  the  nonlinear 
dependent  source  will,  however,  be  similar  to  the  other  nonlinearity  types. 
These  can  again  be  written  by  inspection.  For  example, 

a^gCu^Ct)}'’  a^gu1  (t^)u^  (t2>  a^g  iKs^lKs^)  (2-55) 

a^u^  (t)v^  (t)  ►  a^u^  (t^)  v^  (t^)  iKs^IVls^)  (2-56) 

aggu1  (t)v2(t)  +  a^gU1  (t^)  v^lt^t^)  *■*  a^g  U(s^  IVls-^s^)  (2-57) 

Recall  the  one  way  arrow  goes  backwards  only  when  t^t^t-j. 

We  also  note  that  a  k-th  order  current  source  term  in  Table  2-1  depends 
on  responses  of  order  less  than  k,  which  implies  that,  in  order  to  calculate 
a  transfer  function  of  order  k,  we  need  to  determine  the  transfer  function 
up  to  order  ( k— 1 ) . 

The  first  order  transfer  function  can  be  solved  for  easily.  It  is  sim¬ 
ply  the  linear  circuit  response.  Therefore, 

Y(p)v(t)  =  ^(t)  (2-58) 

For  a  single  input  system,  j_^(t)  =  1/z  r>v  (t)  0  0  ...  0"]T,  where  vg(t) 
is  the  source  voltage.  Taking  the  transform  of  eqn.  (2-58),  and  assuming 
that  the  input  source  to  be  an  impulse  function,  we  get: 


The  equation  for  obtaining  the  second-order  response,  as  per  eqn. 


(2-54),  is  the  following: 

Y(p)v<2)(t)  =  "  j^Ct)  (2-60) 

Since  the  input  to  the  nonlinear  circuit  is  assumed  to  be  an  impulse  func¬ 
tion,  the  transform  of  eqn.  (2-60),  after  using  eqn.  (2-14),  is: 

Yls-j+s^H^s.,^)  =  -  I^(s1,s2)  (2-61) 

The  elements  of  vector  ^(s-j,8?)  can  be  obtained  by  performing  a  two- 
dimensional  transform  on  the  terms  associated  with  k  =  2  in  Table  2-1.  This 
operation,  as  indicated  earlier,  can  be  carried  out  by  inspection.  Thus,  we 
have 

H^s.,^)  =  -  CY(s1+s2)]"1I5(s1,s2)  (2-62) 

Likewise  we  can  solve  for  H^(s^,s2,s-j)  .  In  general,  we  solve  for  the  nth 
order  transfer  function  using  eqn.  (2-63): 


Hf1(s1,s2,...,sn)  =  cI(.£si>]  If1(s1,...,sn) 


(2-63) 


We  observe  a  striking  similarity  between  eqn.  (2-63)  and  the  equations 
for  nodal  or  cutset  analysis  encountered  in  linear  circuit  analysis.  A  lit¬ 
tle  thought  would  show  that  the  process  of  solving  eqn.  (2-63)  is  identical 
to  solving  the  linear  circuit  in  Fig.  2-2.  We  have  nonlinear  current 
sources  as  inputs  to  the  augmented  linear  circuit.  A  k-th  order  vector  of 
transfer  functions  is  obtained  by  exciting  the  linear  circuit  by  the  kth 
order  current  sources.  Just  as  in  the  case  of  linear  systems,  superposition 
can  be  applied  here  when  a  particular  order  response  is  determined  from  the 
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lower  order  responses.  That  is,  a  k-th  order  response  can  be  obtained  by 
applying  the  k-th  order  current  sources  one-by-one  at  each  of  the  ports  ar 
then  summing  up  the  responses.  It  is  important  to  note,  however,  that  the 
complete  responses  of  order  up  to  <k-1)  must  be  determined  before  we  can  ob¬ 
tain  the  kth  order  response  by  superposition.  It  is  also  noted  that  the 
illustration  of  Fig.  2-2  is  for  pedagogic  purpose  and  that  the  nonlinear 
current  sources  are  not  physically  present  in  the  circuit  under  considera¬ 
tion. 

2-5.  Multiple  Input  Circuit  Analysis 

Much  of  the  foregoing  discussion  has  been  concerned  with  the  analysis 
of  nonlinear  circuits  with  single  inputs.  However,  many  applications  of 
practical  significance  is  nonlinear  circuit  analysis  have  multiple  inputs. 
For  example,  in  a  receiver  system,  the  mixer  circuit  has  two  inputs:  1)  the 
message  signal,  and  2)  the  local  oscillator  signal.  The  transmitter  again 
has  nonlinear  circuits  with  multiple  inputs.  The  Volterra  series  method  is 
especially  well  suited  for  the  analysis  of  such  circuits.  In  this  section 
we  discuss  how  the  various  order  transfer  functions  change  as  a  result  of 
multiple  inputs. 

From  the  discussion  in  section  2-4,  it  should  be  apparent  that  the 
analysis  of  nonlinear  circuits  using  the  Volterra  series  method  involves  the 
repeated  analysis  of  a  linearized  circuit.  The  fundamental  relationship  had 
the  following  form  (see  eqn.  2-54): 

Y(p)v(t)  =  1-p—  ^  (t)  -  _^(t>  -  ^3 ( t)  +  ...  (2-64) 

where  J^(t)  is  the  k-th  current  source  vector.  For  k  2  the  k-th  order 

current  source,  depends  on  up  to  the  (k-1)  order  voltage  ratio  transfer 
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functions  as  discussed  above.  It  is  injected  at  each  of  the  pots  at  which 
the  nonlinear  elements  are  present,  and  is  due  entirely  to  the  nonlinear 
characteristics  of  the  nonlinearity.  Furthermore,  it  is  proportional  to  the 
k  values  of  the  circuit  input  multiplied  together.  Thus,  the  number  of 
elements  in  the  vector  i  (t),  k  >_  2,  remain  unchanged  when  multiple  inputs 
are  present;  only  the  J^(t)  vector  is  changed. 

Consider,  for  example,  the  two-input  circuit  of  Fig.  2-3(a).  Then,  to 
solve  for  the  first-order  transfer  function,  we  write  the  vector  transform 
equation  as: 


Y (s. )V(s. )  =  I.(s.) 
-1—1  —11 


(2-65) 


where 


I,(s,)  =  CY  (s.)V  .  (s. )  Y  ,(s.)V  _(s.)  0  ...  Or 

11  gl  1  gl  1  g2  1  g2  1 


(2-66) 


and  Y  and  V_  are  as  defined  previously.  The  transfer  function  vector  can  be 
written  as: 


— 1  (s15  =  — 1 0 C  S 1 >  +  H01  (s1* 


(2-67) 


where 


-10(S1>  = 


V(1)(s1)  V(2)(s1) 


VP(s1)  |T 


Vg2-° 


(2-68) 


(c)  Circuit  for  determining 

H  (s , , s  , .  —  ,s  ) ,n '2 . 
n  I  z  n 


Fig.  2-3.  (contd.)  Multiple  Input  Nonlinear  Circuit  Analysis 


r 


^01 


V<2)<s,,) 


v(p)  (s.,) 


g2 


g2 


gi 


(2-69) 


V° 


where  is  the  voltage  at  port  i. 

The  second-  and  higher-order  transfer  function  vectors  are  solved  for 
by  removing  the  given  input  sources  and  applying  the  fictitious  nonlinear 
current  sources  across  the  ports  at  which  the  nonlinear  elements  are 
present.  The  vector  transform  equation  for  solving  for  the  second-order 
transfer  function  is  still  given  by: 

^(s^s^  =  -CY(s,j  +  s2>:  ^  Cl2^s1's2>^  (2-70) 

where 

Igts^s^  =  CI(1)(svs2)  I(2)(svs2)  ...  I(p)(svs2)D  (2-71) 

(n) 

Depending  on  the  nonlinearity  type,  the  general  form  of  I  (s^,s2),  the 
second-order  current  source  across  port  l,  will  be: 

I^)(s1,s2)  =  a2H1U)(s1)H1(S')(s2)  (2-72) 

(  8.) 

where  (•)  is  known  from  eqn.  (2-67).  The  determination  of  the  higher- 
order  transfer  functions  is  done  similarly. 

In  summary,  we  note  that  the  presence  of  multiple  input  sources  in  a 
nonlinear  circuit  does  not  drastically  alter  the  procedure  for  determining 
the  Volterra  transfer  functions.  Only  the  structure  of  the  first-order 
current  source  vector  is  changed  as  a  result  of  multiple  sources.  This 
change  is  reflected  in  the  values  of  the  elements  making  up  the  second-  and 
higher-order  current  source  vectors,  whose  structure  remains  unchanged. 
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2-6.  Sinusoidal  Steady-State  Analysis 


In  linear  system  theory,  the  sinusoidal  steady-state  response  is  inti¬ 
mately  tied  to  the  transfer  function  of  the  system.  A  similar  result  is 
found  for  higher  order  responses  using  the  Volterra  series  method:  an  n-th 
order  response  at  a  particular  frequency  is  directly  related  to  the  n-th 
order  transfer  function.  In  this  section  we  develop  this  relationship. 

If  the  harmonic  input  method  [10-123  had  been  used  in  deriving  the  gen¬ 
eralized  transfer  functions  in  the  previous  sections,  the  relationship 
between  the  n-th  order  steady  state  response  and  the  n-th  order  transfer 
function  would  have  been  self-evident.  But,  since  multi-dimensional 
transform  theory  was  used  to  derive  the  generalized  transfer  functions,  this 
relationship  must  be  developed.  We  treat  the  specific  case  of  n=2  in  sec¬ 
tion  2-6.1  and  then  derive  the  general  relationship  in  section  2-6.2. 

2-6 . 1 .  Second-order  Sinusoidal  response : 

The  second-order  output,  according  to  the  Volterra  series,  is  given  by: 


y2(t)  =  u  ^2^t-T1't-T2^x^T1^x^T2^c*T1^T2 


(2-73) 


Consider  the  input  signal  comprising  two  unit  sinusoidal  signals  at  frequen¬ 
cies  <»a  and  The  input  x(t)  is  therefore: 


exp(  i  id,  t)  +exp(-i  u),  t) 

a  a 

"e  xp  ( j  t)  +exp  (- j  <*>k  x)" 

2 

2 

(2-74) 


Substituting  eqn.  (2-74)  in  (2-73),  we  have: 


3** 


00  CO 

2(t)  =fQ/Q  h2^-Tl/t-x2) 


expC]tuaT1)+exp(-ju)aT1) 

2 


exp(ju,bTl)+exp(-ju,bTl)"| 


^exp(  j^TjJ+expC-jui^T^) 

I  2  5 - 


exp ( j ub t2) +exp (-j ^ T2)*j 


Considering  one  cross  term  only , 


CO  oo 

//  h2(t-tvt-T2)  l  exp (iV^HVd^dT; 


(2-75) 


(2-76) 


and  letting  o„  =  t_T_  =nri  n  _  _ _ . 

1  1  ana  “2  '  t  t2  and  carrying  out  the  integration  yields, 

T  H2(i“a'H)exPCj(ua+fflb)t]  (2-77) 

Considering  the  other  cross  term  similarly  yields 

l  H2(jVju,a)expCj(u,a+u,b)t:  (2_/8) 

However ,  if  is  symmetrical  in  its  arguments,  as  they  are  assumed 

to  be  in  this  report,  then  the  terms  in  eq.ns.  (2-77)  and  (2-78)  are  equal. 
The  complex  conjugate  terms  appear  similarly.  Hence,  the  output  at  frequen- 
cy  “<a+“b  is: 

y(t)?tVwb  =  ,H2()V)“b)lcos!:(“a+“b)t  + 
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(2-79) 


The  2u)^  or  2^  term  and  their  complex  conjugates  appear  only  once  in  eqn. 
(2-75);  hence,  their  magnitude  will  be  ■^'l ( j u>a , j |  and  -5-I ( j j ^b>  |  , 
respectively.  If  only  one  frequency  input  was  present,  the  results  would  be 
similar.  The  second-order  output  would  then  be: 

I h2 ( i<*>a,ju)a>  | 

y2(t)  =  Ih2(  jua,-ju3a)  |  +  - 2 -  cos(2uat  +  92a)  (2-80) 

Thus,  if  we  know  H^(s^,s2),  then  the  quantities  in  eqn.  (2-80)  can  be  easily 
evaluated.  This  is  analogous  to  the  case  of  linear  systems,  where  the  com¬ 
plex  variable  s  is  replaced  by  j  w  to  compute  the  response  at  <u. 

If  more  than  two-tones  were  present  at  the  input,  the  second  order 
response  would  be  evaluated  by  taking  all  combinations  of  two  frequencies  at 
a  time. 

The  response  of  the  third  and  higher  orders  is  similarly  treated.  We 
now  present  the  general  case. 

2-6.2.  General  Sinusoidal  Steady-State  Analysis. 

In  this  sub-section,  we  develop  the  relationship  which  can  be  applied 
directly  to  compute  the  sinusoidal  steady-state  response  of  a  nonlinear  sys¬ 
tem  from  its  nonlinear  transfer  functions,  which  can  be  obtained  by  the 
method  presented  in  section  2.  The  discussion  here  relies  heavily  on  HOT. 

Consider  a  nonlinear  system  excited  by  the  sum  of  K  distinct  tones; 
i.e.,  defining  N  =  2K,  we  have, 

1  N 

x(t)  =  53  A.  exp( j u>. t)  (2-81) 

7  =  1 

where  u.  win  include  both  positive  and  negative  frequencies,  and  A.  for  a 

negative  frequency  will  be  the  complex  conjugate  of  A.  for  the  positive  f re- 
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quency  in  order  to  have  x(t)  real.  Then,  the  nth  order  output,  y  (t),  is 
given  by: 


ynCt)  =  /••*/  hn<T1,...,Tn)  n  x(t-T.)dT. 
n-fold  i=1 


n  N 


hn(T1'-"'V  p?  jg,  k5,  Akexp[;ja)k(t-Ti)3dTi 


(2-82) 


Carrying  out  the  product  operation  in  eqn.  (2-82),  we  get  a  function  y  (t) 


containing  Nn  terms,  given  by: 


N  N  . 

yn<t}  ^  ’  £  ^n  Ak1*"Ak  Hn^“k  '  ‘ m  ‘^“k  } 

k^=1  kn=l  2"  1  n  1  n 


•  expCj  (u,  +...+0).  )t3 
*1  Kn 


(2-83) 


Notice  that  in  arriving  at  eqn.  (2-83),  we  have  performed  the  t.  integration 
in  eqn.  (2-82),  thus  giving  rise  to  the  n-th  order  transfer  function  in  eqn. 
(2-83).  As  the  indices  k^  are  varied  over  the  range  1  to  N,  many  of  the 
terms  will  be  at  the  same  frequency.  The  number  of  terms  at  various  partic¬ 
ular  frequencies  will  vary  according  to  what  frequency  combinations  are  tak¬ 
en.  For  example,  in  the  case  of  n=2  in  section  2-6.1,  there  were  two  cross 
frequency  terms,  while  there  was  only  one  second  harmonic  (at  2u>  )  term. 
Similarly,  for  n=3,  there  are  six  terms  in  eqn.  (2-83)  at  frequency 

u>  +o >, +w  ,  three  terms  at  2w  +u>.  ,  one  term  at  3a>  ,  etc.  The  nonlinear 
a  D  c  a  D  a 

transfer  functions,  which  make  up  the  coefficients  of  these  frequency  terms, 
differ  only  in  their  arguments.  However,  since  the  transfer  functions  are 
assumed  to  be  symmetric,  the  coefficient  of  the  output  at  frequency  u>  +u>  +u> 
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(in  the  case  of  n=3)  can  be  multiplied  by  6.  This  obviates  the  need  for 

taking  all  combinations  to  compute  the  output  at  u>  +u,  +10  .  Likewise  we  han- 

a  b  c 

die  the  case  of  other  frequency  combinations.  With  this  insight,  we  can 

peek  at  the  problem  from  a  different  perspective. 

Let  m^,m2,...,mN  be  non-negative  integers.  Then,  the  number  of  terms 
at  frequency  =  m^u>^+m2b>2+-  •  is  equal  to  the  number  of  ways  of  form¬ 

ing  m^ u^  +  . . .+m|yu>N.  In  the  n-th  order  output  spectrum  to  a  multi-tone  input, 
each  term  is  evaluated  by  taking  a  distinct  combination  of  n  input  tones  at 
a  time.  To  compute  the  n-th  order  output  when  the  input  frequencies  are 

we  must  therefore  restrict  m-  in  the  following  manner  to  com¬ 
pute  u>2: 


m1  +  m2  +  * ’ *  +  =  n 


(2-84) 


Now  the  problem  reduces  to  the  following:  find  the  number  of  ways  in  which  n 
objects  can  be  divided  into  N  groups  of  which  the  first  contains  m^  objects, 
the  second  m^  objects,  etc.  The  solution  to  this  problem  is  given  by  the 
multi-nomial  coefficient  H223: 


n,N  . . .m^ ! 


(2-85) 


By  deriving  eqn.  (2-85),  we  have  obviated  the  repetition  of  terms  that  is 
inherent  in  eqn.  (2-83).  An  equivalent  way  of  representing  eqn.  (2-83) 
through  the  use  of  eqn.  (2-85)  then  becomes: 


m«  mp  mi. 

A  A  C  •  •  •  A 


ynCt) 
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ragtimes  mutinies 


V 


•  expC j  +  ...  +  mNuN)tl  (2-86) 

Since  yn<t)  is  real,  eqn.  (2-86)  also  contains  the  complex  conjugate  terms. 

Thus,  the  coefficient  of  the  sinusoidal  term  at  frequency  m.u.+. .  .+m.,uK.  in 

11  N  N 

the  n-th  order  output  is  given  by: 


m1 

Ai  A2 


un,N 


n_1  * • • • y) ‘ 


(2-87) 


m^times  n^times 


uptimes 


In  computing  the  entire  n-th  order  response  in  eqn.  (2-86),  we  take  all  dis¬ 
tinguishable  combinations  of  m.  satisfying  eq.  82-84).  According  to  CIO] 
there  are 


n,N 


n+N-1 

=  (  ) 
n 


(n+N-1) ! 
n! (N-1 ) ! 


(2-88) 


such  combinations. 

Equation  (2-86)  is  the  fundamental  relationship  between  the  n-th  order 
output  and  the  n-th  order  transfer  function.  At  first  glance,  the  evalua¬ 
tion  of  this  equation  appears  to  be  a  formidable  task.  But,  after  some 
thought,  one  finds  that  this  is  not  such  a  difficult  task  after  all.  We, 
however,  defer  the  discussion  of  this  till  section  4. 

We  now  illustrate  the  use  of  eqn.  (2-87).  We  assume  that  the  nonlinear 
transfer  functions  are  known.  The  case  for  n=2  can  be  easily  verified  from 
the  discussion  in  section  2-6.1.  For  a  two-tone  input  at  and  u2  and  n=3, 
we  have  the  following  cases: 
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(a)  The  output  at  ^  and  ^  have  the  following  amplitudes,  respectively: 


y3<t>| 


^  M  a2  t  2a1 

(4)  1 1 1  '  1  1  I  ^3 


(2-89) 


3'A2|A1I? 

^ 3  ^  t )  I  ;o ~  (4)1'  fi  lT  I  ^  ^  ^3^2^  I 


(2-90) 


(b)  The  output  at  Oo.  +  j.,  has  rhe  following  magnitude: 


y3( I  2  o  1  +u 


vaiS 

(4)2! 1 ! 


I  (  j  :*>i  ,  j  U  i  ,  j  U-5  )  i 


(2-91) 


(c)  The  output  at  lu  has  the  following  magnitude: 

3!<A1>* 

=  ~ (TTV  V’V^V’V1 

1 


(2-92) 


The  other  combinations  can  be  carried  out  similarly.  For  the  above  cases  we 

make  the  following  observations:  both  eqns.  (2-89)  and  (2-90)  are  similar  to 

obtaining  the  output  at  v  +  j.+j  ,  and  therefore  we  see  a  3!  (=6)  multiplica- 

a  b  c 

tion  factor*,  which  accounts  for  the  six  combinations  at  <o  +w,  +u>  that  were 

a  u  c 

mentioned  earlier;  eqn.  (2-91)  is  similar  to  obtaining  the  output  at  2io  +u).  , 

a  d 

and  therefore  has  a  multiplication  factor  of  (3 ! / 2 ! )  =  i,  which  again  is  in 
accordance  with  our  earlier  discussion;  eqn.  (2-92)  is  like  evaluating  the 
output  at  3u  ,  and  hence  has  a  multiplication  factor  of  (3!/3!)  =  1. 

In  section  (2-5),  we  dealt  with  the  ana i /sis  o <  multiple  input  non¬ 
linear  circuits.  In  obtaining  the  sinusoidal  steady-state  response  of  such 

*The  constant  factor  4  in  the  denominator  appears  consistently  in  all 
the  output  terms,  and  is  therefore  not  regarded  as  a  variable  multipli¬ 
cation  factor  here.  This  factor  appears  due  to  the  way  x(t)  was  ex¬ 
pressed  in  eqn.  (2-81). 


circuits  the  material  of  this  section  is  still  applicable.  However,  care 
must  be  taken  in  keeping  track  of  the  various  input  frequencies,  and  their 
associated  transfer  functions,  when  such  an  analysis  is  warranted. 
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CHAPTER  3 


COMPUTER-AIDED  ANALYSIS  USING  VOLTERRA  SERIES 

3-1 .  Introduction 

The  adapting  of  Volterra  series  method  in  a  general  simulation  program 
has  been  regarded  as  difficult  by  various  authors  1.301.  As  such,  virtually 
no  effort  has  been  spent  on  investigating  the  computat iona l  aspect  of  this 
method.  Most  previous  works,  such  as  F71,  have  endeavored  to  check  the 
validity  of  this  approach  by  applying  it  to  specific  circuit  problems  using 
a  computer. 

The  only  major  effort,  in  using  the  Volterra  series  for  general  non¬ 
linear  circuit  analysis  has  been  the  development  of  the  program  NCAP 
110,741.  A  cursory  review  of  this  program  reveals  the  inherent  inefficiency 
in  the  computational  approach  with  regards  to  storage  and  types  of  algo¬ 
rithms  used.  This  inefficiency  notwithstanding,  there  are  severe  limitation 
regarding  the  usefulness  of  the  program:  first,  the  program  merely  computes 
the  numerical  values  of  the  nonlinear  transfer  'unction  at  the  various 
program-prescribed  combinations  of  the  input  frequencies,  and  does  not  com¬ 
pute  all  the  transfer  function  values  which  are  required  to  compute  the  com¬ 
plete  output  spectrum.  Thus,  NCAP  does  not  yield  the  entire  output  spectrum 
information.  Second,  to  compute  up  to  an  n-th  order  transfer  function,  the 
user  must  specify  n  input  'requenc les,  which  are  assumed  to  be  a  sum  of  ex¬ 
ponentials  and  not  real  sinusoids.  The  program,  therefore,  is  severely  lim¬ 
ited  in  its  usefulness  from  the  point  of  view  of  3  user  who  may  only  be  in¬ 
terested  in  obtaining  the  output  spectrum  -  say,  for  example,  up  to  the 
third  order  response  to  *wn  s inusu'  fal  ;oputs  -  and  has  little  use  for  the 
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numerical  values  of  the  transfer  functions  at  the  program  prescribed  fre¬ 
quencies. 

In  this  section  we  look  at  the  computational  aspect  of  the  Volterra 
series  method  for  general  simulation  purposes  and  then  present  the  basic  al¬ 
gorithms  for  adapting  this  method  for  the  spectrum  and  distortion  analysis 
of  nonlinear  circuits  with  polynomial  type  nonlinearities. 

In  section  3-2,  we  present  a  brief  overview  of  symbolic  analysis  in 
linear  circuits,  and  then  describe  the  reason  why  a  symbolic  approach  is 
particularly  useful  in  adapting  Volterra  series  for  general  simulation. 
Section  3-3  deals  with  the  implementation  of  the  symbolic  approach,  and  also 
contrasts  the  computational  effort  between  a  numerical  approach  and  the  par¬ 
ticular  symbolic  approach  used  here.  The  algorithm  for  obtaining  the  com¬ 
plete  output  spectrum  and  the  various  distortion  indices  is  described  in 
section  3-4.  A  description  of  the  computer  implementation  of  these  algo¬ 
rithms  is  given  in  section  3-5. 


N(s;x1,...,xn) 

D(s;x1,...,xn) 


(3-2) 


applies  when  some  elements  of  the  circuit  x^  are  kept  as  symbols.  The  ad¬ 
vantages  of  symbolic  analysis  have  been  recognized  previously  125,271.  One 

^3 


particular  advantage,  and  the  one  which  is  relevant  to  our  problem  here,  is 
that  the  numerical  evaluation  of  a  function  at  discrete  points  is  much 
easier  and  faster  once  the  symbolic  function  is  obtained  than  working  re¬ 
peatedly  with  a  circuit  analysis  program.  With  this  brief  overview  of  sym¬ 
bolic  analysis,  we  now  proceed  to  answer  the  question:  Why  use  a  symbolic 
ana  ysis  approach  for  adapting  the  Volterra  series  method  for  general  cir¬ 
cuit  analysis? 

As  pointed  out  in  the  previous  sections,  a  nonlinear  circuit  is  com¬ 
pletely  characterized  by  its  Volterra  kernels,  or  their  transforms  -  the 
generalized  transfer  functions.  These  transfer  functions  are  then  directly 
related  to  the  various  order  sinusoidal  steady-state  responses,  as  described 
in  Chapter  2.  The  n-th  order  transfer  function  is  determined  from  the  fol¬ 
lowing  equation  (see  Chapter  2): 


H 

— n 


( s. , 


n 

CY(  L 
~  i=1 


Si):]  If)<s1,...,sn) 


(3-3) 


n 

where  Y(  £  s.)  is  the  reduced  node  admittance  matrix  evaluated  as  s.  +  s-> 

'  i=1  1  c 

*  ...  +  s  and  I  is  the  n-th  order  current  source  vector  due  to  the  non- 

n'  — n 

linear  elements.  To  compute  the  output  spectrum,  we  evaluate  Hn  at  the 
various  and  many  frequency  combinations.  From  eqn.  (3-3)  it  should  be  clear 
that  such  an  evaluation  will  entail  the  inversion  of  the  reduced  node  admit¬ 
tance  matrix  at  each  of  these  frequency  combinations.  Using  combinatorial 
analysis,  it  has  been  shown  F22D  that  for  an  input  consisting  of  M  sine 


waves,  the  number  of  inversions  involved  in  an  n-th  order  response,  given  by 


(2M+n-1 
n 

Thus,  for  a  3-tone  input  and  up  to  a  third  order  analysis,  the  number  of 
inversions  is  approximately  235.  For  higher  order  responses,  this  number 
grows  very  rapidly. 

Two  basic  approaches  available  for  handling  this  inversion  process  are: 
1.  Numerical  approach,  or  2.  Symbolic  approach.  The  advantage  of  evaluat¬ 
ing  symbolic  transfer  functions  mentioned  earlier  makes  the  symbolic  ap¬ 
proach  more  attractive.  How  much  advantage  is  gained  in  using  a  symbolic 
analysis  depends  on  how  much  computational  effort  is  expended  in  obtaining 
the  symbolic  inverse  of  the  reduced  node  admittance  matrix.  Thus,  an  effi¬ 
cient  scheme  for  obtaining  the  symbolic  inverse  must  be  used  to  efficiently 
adapt  the  Volterra  series  method  for  computer  aided  anaLysis.  The  determi¬ 
nation  of  the  symbolic  inverse  will  be  the  subject  of  section  3-3. 

The  reasons  presented  above  stem  from  looking  at  the  computational  as¬ 
pect  of  adapting  Volterra  series  for  computer-aided  analysis.  There  are 
other  advantages  gained  from  using  a  symbolic  analysis.  An  important  one  is 
that  the  generalized  transfer  functions  can  be  obtained  as  functions  of  s^ 
once  the  inverse  of  the  reduced  node  admittance  matrix  is  obtained  as  a  sym¬ 
bolic  function  of  s.  This  can  be  seen  from  examining  eqn.  (3-3).  The  for¬ 
mation  of  the  n-th  order  current  source  vector  is  a  bootstrapping  operation, 
as  was  pointed  out  in  Chapter  2.  That  is,  an  n-th  order  source  is  fo  med 
from  transfer  functions  of  order  less  than  n.  The  first-order  transfer 
function  vector  is  determined  from  a  column*  of  the  symbolic  inverse  of  the 
reduced  node  admittance  matrix.  The  second  order  current  sources,  which 


♦This  is  assuming  a  single  input  circuit. 
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depend  on  the  elements  of  the  first  order  transfer  function  vector,  are 
therefore  formed  from  this  column  of  [Y(s)T  .  The  second-order  transfer 
function  vector  is  obtained  by  pre-mult iplying  the  second-order  current 
source  vector  by  CYCs^a^)]  ^  *  according  to  which  the  second-order  transfer 
function  vector  eventually  depends  on  the  entries  of  inverse  of  the  node  ad¬ 
mittance  matrix  evaluated  at  (s^+52).  The  third-  and  higher-order  transfer 
functions  have  a  similar  dependence.  Thus,  an  inverse  of  the  reduced  node 
admittance  matrix  in  symbolic  form,  with  s  retained  as  a  symbol,  also  yields 
a  functional  description  of  the  nonlinear  transfer  functions.  A  concomitant 
advantage  of  this  functional  description  is  that  theorems  from  multi¬ 
dimensional  theory  C5]  (such  as  initial  value,  final  value,  etc.)  can  then 
be  used  to  gain  more  insight  into  the  workings  of  the  circuit. 

r 23 1  has  developed  recursive  relationships  to  estimate  the  error  in¬ 
curred  in  the  truncation  of  the  series  solution.  This  error  was  directly 
related  to  the  l^  norm  of  the  linear  kernel  function,  which,  in  turn,  is  re¬ 
lated  to  the  poles  and  residues  of  the  linearized  system.  Thus,  we  can  get 
an  estimate  of  the  accuracy  of  our  solution  through  the  pole-residue  infoi — 
mation  provided  to  us  by  the  symbolic  analysis. 

3-3.  Symbo  l  i c  Ana  Lysis  Method 

Symbolic  c i rcui f  ana lys i s  by  digital  computer  has  been  of  considerable 
interest  in  the  past  decade.  Many  algorithms  and  methods  have  been  derived 
to  obtain  symbolic  transfer  functions  of  linear  circuits  C20T.  Most  of 
these  methods  use  tree  enumeration  C26T,  signal-flow  graphs  T20T,  or  purely 
numerical  methods  T27]  to  obtain  symbolic  transfer  function  between  the  in¬ 
put  and  the  output.  These  approaches  are  basically  useful  for  single-input, 
single-output  systems.  The  inversion  of  the  reduced  node  admittance  matrix 

to  obtain  the  ooen-circuit  impedance  matrix,  which  is  the  problem  we  are 
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dealing  with,  is  basically  a  multi-input,  multi-output  problem.  The  methods 
mentioned  above  can  be  adapted  for  solving  the  problem  at  hand;  however,  the 
generation  of  multiple  symbolic  functions  using  these  approaches  many  not  be 
satisfactory  because  of  excessive  computer  time  requirements.  Some  other 
approach  is  definitely  warranted. 

Published  methods  C16-18D  for  inverting  the  nodal  admittance  matrix 
when  the  elements  are  rational  functions  of  the  Laplace  transform  variable  s 
use  pivotal  techniques.  It  may  appear  that,  since  it  is  easy  to  program  a 
computer  to  perform  polynomial  arithmetic,  these  pivotal-techniques  are  a 
natural  way  to  approach  the  symbolic  inversion  problem.  Results  from  the 
use  of  such  a  technique  have  proved  to  be  disappointing,  mainly  due  to  the 
following  reasons: 

(a)  The  process  of  inversion  transforms  the  nodal  admittance  matrix,  which 
contains  terms  of  the  form  as  +  —  +  c,  into  a  matrix  in  which  every  element 
is  a  rational  function  of  s.  The  pivotal  technique  produces  the  inverse  ma¬ 
trix  where  common  factors  appear  between  numerator  and  denominator,  and  un¬ 
less  some  mechanism  is  built  into  the  process  whereby  these  common  factors 
are  recognized  and  removed,  the  elements  produced  will  have  polynomials  of 
excessively  high  order. 

(b)  When  the  circuit  complexity  is  high,  the  evaluation  of  the  symbolic 
function  at  high  frequency  values  can  give  rise  to  numerical  problems.  For 

g 

example,  a  circuit  with  8  poles  will  have  an  s  term  in  the  characteristic 
polynomial.  When  evaluated  at  10  Mrad/sec,  this  term  produces  a  number 
equal  to  10^.  Of  course,  this  problem  can  be  alleviated  by  obtaining  a 
partial  fraction  expansion  (PFE)  form  for  the  transfer  functions.  But  this 
again  entails  additional  computations  -  not  to  mention  the  numerical  insta¬ 


bility  problems  involved  in  root  finding. 
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(c)  It  has  also  been  found  that  pivotal  techniques  become  numerically  un¬ 
stable  for  higher  order  circuits. 

We  therefore  seek  another  alternative  for  obtaining  the  symbolic  form 
of  the  open  circuit  impedance  matrix. 

An  approach  based  on  the  state  variable  formulation  can  be  used  to 
achieve  this  goal.  Specifically,  consider  the  general  p-port  augmented 
linear  circuit  of  Fig.  3-1 (a) .  We  wish  to  solve  for  the  transfer  im¬ 
pedances,  z..(s),  i,j  =  1,2,...,p,  from  the  j-th  port  to  the  i-th  port. 

Knowing  these  transfer  impedances,  we  can  write  for  the  p-port: 


V(s)  =  Z(s)Hs)  =  CYCs):'1  I_(s)  (3-5) 

where  V(s)  =  CV. (s)  V,(s)  ...  V  (s)3  (3-6) 

-  1  2  p 

Z(s)  =  Cz..(s)D  (3-7) 

and  I(s)  =  CI1  (s)  I2(s)  ...  I  (s)3  (3-8) 


Note  that  the  vector  \/(s)  contains  entries  which  are  the  output  voltages  and 
voltages  that  control  the  nonlinear  element  characteristics  in  the  nonlinear 
c i rcui t . 

To  obtain  Z(s)  symbolically,  we  write  for  the  network  of  Fig.  3-1  (b), 
the  following  state  equations: 

x  =  Ax  +  Bi  (3-9) 


v  =  Cx  +  Di 


(3-10) 


where  x  is  the  vector  of  state  variables,  and  v^  and  j_  are  vectors  whose 
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transforms  appear  in  eqns.  (3-6)  and  (3-8),  respectively.  Taking  the  La¬ 
place  transform  of  eqn.  (3-9)  and  (3-10),  and  solving  for  V(s),  we  get: 

V(s)  =  CC(sI-A)-1  B  +  dD  Hs)  (3-11) 

and,  therefore,  we  get  Z(s)  to  be 

Z(s)  =  CC(sI-A)-1  B  +  0]  (3-12) 

which  is  identically  the  inverse  of  the  reduced  node  admittance  matrix. 

The  matrix  (sI-A)  can  be  inverted  by  applying  the  similarity  transfor¬ 
mation  as  follows: 

A  -  M  A  M_1  or  A  =  M-1  AM 
.-.  M_1(sI-A)M  =  si  -  M_1AM  =  si  -  A 

or  (sI-A)_1  =  M(sI-A)"1  M_1  (3-13) 

-1  -1 

where  the  inverse  of  (si  -  A)  is  simply  diag  <(s-x^)  ,(s-x^)  ,  ...>  where 
are  the  eigenvalues*  of  the  A  matrix  and  M  is  the  modal  matrix.  Substi¬ 
tuting  eqn.  (3-13)  into  eqn.  (3-12),  we  get, 

Z(s)  =  CCM(sI-A)-1  M_1  B  +  D3 

=  cf(sI-A)-1  S  +  o:  (3-14) 

where  C  *  CM  and  8  =  M  1B.  Equation  (3-14)  yields  the  entries  of  Z(s)  in 

partial  fraction  expansion  form,  which,  as  mentioned  previously,  is  a  more 

desirable  form  from  a  computational  standpoint.  All  information  about  Z(s) 

♦Here  we  assume  distinct  eigenvalues;  the  repeated  eigenvalues  can  be 
handled  similarly. 


7 


50 


is  contained  in  the  matrices  £,  B,  0  and  a  vector  containing  the  eigen¬ 
values.  An  algorithm  for  implementing  this  approach  is  given  in  Fig.  3-2. 
It  should  be  noted  that  the  approach  used  here  is  completely  numerical  and 
does  not  involve  any  coding  and  decoding  of  symbols. 

Now  that  an  algorithm  for  obtaining  the  symbolic  Z(s)  is  defined,  we 
can  make  a  comparison  of  the  computational  effort  involved  between  using  a 
symbolic  inverse  and  the  numerical  inverse  of  the  node  admittance  matrix  at 
each  frequency  point. 

The  computational  trade-off  between  the  symbolic  approach  and  a  numeri¬ 
cal  approach  for  matrix  inversion  is  very  problem  dependent.  While  a 
clear-cut  winner  cannot  be  established,  a  tentative  answer  can  be  obtained 
by  noting  the  operations  count,  defined  in  terms  of  multipl ications  and  ad¬ 
ditions,  involved  in  the  two  schemes. 

In  the  case  of  the  numerical  approach,  the  number  of  independent  nodes, 
n,  and  the  number  of  branches,  b,  are  the  most  important  quantities  for 
determining  the  computational  effort  along  with  the  number  of  frequency 
points  at  which  the  output  is  desired.  Assuming  that  no  sparse  matrix  tech¬ 
niques  are  used,  the  numerical  inversion  of  an  (nxn)  matrix  requires  0(n^/3) 
units  of  work,  where  0(  )  =  "order  of",  and  1  unit  of  work  =  one  addition 
and  one  multiplication.  For  k  frequency  points,  the  work  becomes  0(kn5/3). 
This  does  not  involve  book-keeping  and  other  pre-  and  post-processing  steps 
such  as  pivoting  and  iterative  refinement,  which  are  usually  necessary  to 
insure  reliability  and  robustness  of  the  algorithm. 

In  the  case  of  symbolic  inversion  using  our  approach,  the  important 
parameters  in  the  computational  effort  are  the  dynamic  degrees  of  freedom, 
d,  and  the  number  of  ports,  p,  where  voltages  and  currents  are  injected  or 
Using  the  QR  algorithm  C20,28D  for  computing  the  eigenvalues  of 
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.  3~2.  Algorithm  for  inverting  Y(s)  symbolically 


the  A  matrix,  the  operation  count  is  Q'Rd^).  The  total  work  required  for 
obtaining  the  inverse  at  k  frequency  points  is  therefore  0(3d  +  kdp  ).  The 
number,  p,  depends  on  the  number  of  nonlinearities  in  the  circuit,  and  is 
usually  small.  Also,  if  the  network  complexity  is  less  than  the  number  of 
nodes,  the  symbolic  approach  would,  in  general,  require  less  comout at i ona l 
effort.  As  far  as  accuracy  is  concerned,  both  the  QR  algorithm  and  the 
Ciout’s  algorithm  with  pivoting  and  iterative  refinement  yield  accurate 
results. 

The  efficiency  of  the  symbolic  method  rests  heavily  upon  the  availabil¬ 
ity  on  an  efficient  process  for  forming  the  state  equations.  The  hybrid 
analysis  method  F19,201,  which  essentially  reduces  to  the  analysis  of  a 
resistive  network,  is  well-suited  for  our  purposes  here. 

3-4.  Spectrum  and  Distortion  Analysis  Algorithm 

The  output  spectrum  and  distortion  indices  for  a  nonlinear  circuit  with 
polynomial  type  nonl ineari ties  can  be  computed  on  the  basis  of  the  material 
of  Chapters  3  and  4.  A  flow-chart  of  the  basic  algorithm  for  such  a  compu¬ 
tation  is  given  in  Fig.  3-3.  We  describe  the  steps  involved  in  the  follow¬ 
ing  paragraphs: 

Step  1:  For  the  given  nonlinear  circuit,  determine  the  dc  operating  point. 
Expand  each  nonlinear  function  into  a  Taylor  series  about  the  operating 
point  to  get  a  polynomial  representation  for  the  nonlinear  element  in  terms 
of  the  incremental  quantities.  Thus,  for  example,  a  forward-biased  diode 
having  the  "global"  V- I  representation 

I  =  IsFexp(qV/nkT)  -  11  (3-13) 

can  be  expanded  into  a  Taylor  series  to  yield  the  following  incremental  v-i 
represent  at i on  : 
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where  Ig  is  the  dc  operating  current. 

Step  2:  Lump  the  Linear  part  of  the  nonlinear  elements  with  the  existing 
linear  network  to  form  the  augmented  linear  network.  Extract  as  ports  the 
nonlinear  element  branches  and  the  branches  that  control  the  nonlinear  ele¬ 
ment  characteristics  (dependent  nonlinear  element  case),  along  with  the  out¬ 
put  and  source  branches,  from  the  augmented  linear  network.  Let 
V_  =  V ^  ...  Vpl  and  1^  =  CI^  ^  ...  Ip1  denote  the  vector  of  voltages  and 

currents  for  these  ports,  respectively. 

Step  3:  Using  a  symbolic  analysis  algorithm  (see  Fig.  3.2),  obtain  the  en¬ 
tries  of  the  Z  matrix  as  a  function  of  s,  where 


V(s)  =  Z  (s)  I(s)  (3-17) 

For  each  of  the  input  sources,  and  their  associated  frequency  tones,  compute 
the  first-order  output  voltages  at  each  of  the  extracted  ports  by  using  the 
appropriate  entries  of  the  Z  matrix.  This  step  amounts  to  letting  s  =  jn>. 
in  z.j(s),  the  entries  of  Z^(s). 

Step  4:  The  second-order  output  spectrum  is  evaluated  using  the  following 
relationship: 


V2(s.j,S2)  =  Zls-j+Sj)  ^2^si/s2^  (3-15) 

The  vector  ^(s^Sj)  is  the  second-order  current  source  vector,  which  is 

formed  by  using  the  coefficients  associated  with  the  quadratic  term  of  the 

nonlinear  element  and  the  first-order  output  at  the  controlling  port(s)  of 

the  nonlinearity.  The  latter  information  was  obtained  in  step  3.  The  given 

input  tones  are  taken  two  at  a  time  in  eqn.  (3-18),  along  with  the  informa- 
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tion  derived  in  Chapter  2,  to  evaluate  the  output  voltages  at  each  of  the 


p-ports. 

The  third-order  output  spectrum  is  obtained  in  exactly  the  same  manner. 
The  first-  and  second-order  outputs  are  used  to  form  the  third-order  current 
source  at  each  combination  frequency,  which  is  then  pre-multiplied  by 
evaluating  Z(s)  at  the  combination  frequency. 

Step  5:  Perform  a  histogram  analysis  of  all  frequency  points  and  combine  the 
responses  at  points  which  are  repeated.  The  distortion  indices  are  computed 
using: 


HO 


2 


|V0(2ui)| 

|v0Cu»i> ) 


(3-19) 


IV3“i> 
HD3  =  IV“i>! 


(3-20) 


where  HD.,  and  HD^  denote  the  second  and  third  order  harmonic  distortion  in- 
di ces. 


3-5.  Program  PRANC. 

The  Program  for  Analysing  Nonlinear  £ircuits,  known  as  PRANC,  is  a  di¬ 
gital  computer  program,  written  in  FORTRAN  IV,  that  computes  up  to  the 
third-order  complete  output  spectrum  of  a  nonlinear  circuit  with  polynomial 
nonl ineari t ies  driven  by  up  to  two  multi-frequency  inputs  ,*  In  the  process 
it  computes  the  Volterra  transfer  functions  at  each  of  the  frequency  combi¬ 
nations  involved. 

As  mentioned  previously,  the  solution  of  the  nonlinear  circuit  problem 
reduces  to  »he  repeated  solution  of  the  linear  circuit.  To  efficiently  han- 

♦Thus,  mixer-type  circuits  can  be  analyzed  using  PRANC. 
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die  this  basic  problem,  PRANC  uses  a  semi-symbolic  approach  C203  for  analys¬ 
ing  the  augmented  linear  circuit.  Specifically,  the  inverse  of  the  reduced 
node  admittance  matrix  is  obtained  in  terms  of  the  symbol  s  using  the  state 
equation  formulation  as  described  above. 

The  state  equations  for  the  Linear  circuit  are  formulated  via  the  Hy¬ 
brid  analysis  method  C19,20].  If  T  denotes  port  branches  in  the  tree  C201 
and  C  denotes  port  branches  in  the  co-tree  of  a  linear  circuit,  then  the  Hy¬ 
brid  analysis  yields  the  following  relationship: 


'll 

H12 

H13 

H14 

'21 

H22 

H23 

H24 

'31 

H32 

H33 

H34 

'41 

H42 

H43 

H44 

(3-21) 


By  suitably  forcing  the  various  ports  in  the  linear  circuit  into  the  tree 
and  co-tree  branches,  PRANC  uses  the  (3-21)  formulation  for  setting  up  the 
state  equations.  All  capacitor  branches  are  extracted  as  ports  which  neces¬ 
sarily  become  part  of  the  tree  and  all  inductors,  nonlinear  element  branches 
(which  are  assumed  to  be  voltage  controlled),  and  input  and  output  branches, 
are  extracted  as  ports  which  are  forced  as  part  of  the  co-tree.  The  matrix 
H  is  obtained  in  a  form  where  H^  =  I  (I  being  the  identity  matrix), 
H12  =  H21  =  0,  Hpj  -  I.  This  yields  the  capacitor  currents  and  the  inductor 
and  nonlinear  element  branch  voltages  in  terms  of  known  variables.  Thus, 
the  A,  B,  C,  and  0  matrices  in  the  state  and  output  equations  (see  eqns.  3-9 
through  3-12)  are  obtained  from  the  submatrices  of  H.  The  formulation  of 
eqn.  (3-21)  is  quite  fast,  since  it  only  involves  the  analysis  of  a  resis¬ 
tive  network. 


It  is  noted  that  the  matrix  H  may  not  exist  in  idealized  circuits. 
However,  for  most  practical  circuit  this  matrix  is  almost  certain  to  exist 
C201.  It  should  also  be  noted  that  the  above  formulation  of  state  equations 
tacitly  assumes  that  no  degenerate  cutsets  (all  inductoi — current  source 
cutset)  or  degenerate  loops  (all  capacitoi — voltage  source  loop)  are  present 
in  the  l ineari zed  circuit.  These  restrictions  are  not  very  severe,  espe¬ 
cially  when  the  realistic  lossy  models  of  circuit  components  are  taken  into 
account . 

The  next  step  in  the  PRANC  algorithm  is  to  determine  the  eigenvalues 
and  the  eigenvectors  of  the  A  matrix.  For  this  purpose,  the  double  QR  algo¬ 
rithm  C28T  for  obtaining  the  eigenvalues  is  employed.  The  basic  steps,  such 
as  matrix  balancing,  reduction  to  Hessenberg  form,  shift  of  origin,  are  in¬ 
cluded  in  this  algorithm  to  make  it  efficient  and  reliable.  The  eigenvec¬ 
tors  are  also  obtained  in  the  process. 

All  information  about  the  inverse  of  the  reduced  node  admittance  matrix 

A  A 

is  stored  as  three  matrices  and  a  vector.  The  matrices  are  8,  C,  and  0  (see 
eqns.  3-14),  and  the  vector  contains  the  eigenvalues.  It  is  noted  that  the 
solution  of  eigenvectors  for  repeated  eigenvalues  can  be  a  numerical  un¬ 
stable  process  C29T.  Thus,  the  programs  outputs  a  diagnostic  message  when 
such  a  case  occurs. 

The  first-order  voltage  response  at  the  prescribed  ports  is  now  comput¬ 
ed  from  the  entries  of  the  open-circuit  impedance  matrix.  These  ports  in¬ 
clude:  source  port,  output  ports,  nonlinear  element  ports,  and  ports  which 
control  the  nonlinear  element  characteristics.  The  response  is  calculated 
for  each  user  prescribed  frequency,  and  stored  as  a  two-dimensional  array: 
port  number  vs.  the  frequency  number. 
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The  second-order  voltage  response  is  computed  at  each  distinct  combina¬ 
tion  of  the  input  tones  taken  two  at  a  time.  The  ports  of  interest  are  the 
same  as  that  for  the  first-order  response.  The  second-order  current  source 
vector,  at  a  particular  frequency  combination,  is  formed  by  considering  the 
nonlinear  element  type  and  the  voltage(s)  controlling  it,  which  is  deter¬ 
mined  from  the  first  order  response  array.  This  vector  is  pre-mult ipl ied  by 
the  open-circuit  impedance  matrix  evaluated  at  the  combination  frequency  to 
obtain  the  second-order  transfer  function  vector  at  that  frequency.  The 
response  voltage  at  this  frequency  is  then  determined  from  the  transfer 
function  value.  The  second-order  transfer  function  values  are  again  stored 
as  a  two-dimensional  array:  port  number  and  the  particular  frequency  combi¬ 
nation. 

The  third-order  response  is  determined  similarly.  The  third-order 
current  source  vector  is  formed  by  properly  picking  out  the  values  of  the 
first-  and  second-order  transfer  functions.  The  indexing  of  the  arrays  is 
of  critical  importance  to  the  efficient  implementation  of  this  scheme. 

Since  the  hybrid  analysis  forms  the  basis  for  forming  the  open  circuit 
impedance  matrix,  the  following  linear  elements  are  allowed  by  the  program*: 
resistors,  capacitors,  inductors,  voltage  or  current  sources,  and  all  four 
types  of  controlled  sources.  The  nonlinear  elements  are  assumed  to  be  vol¬ 
tage  controlled,  with  the  following  polynomial  descriptions: 

i  =  a.fCv  1  +  a-,fTv^l  +  a  fCv^3  (3-22) 
pip  2  p  3  p 


*A  direct  nodal  analysis  would  only  allow  for  voltage  controlled  current 
source. 
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V  a 1 0 vq  +  a01vr  +  a20vq  +  a02vr  + 


a1lVr  +  a30vq  +  a03vr  +  a1?Vr  +  a2l'Vr 


(3-23) 


where  i  and  vn  are  currents  and  voltages  across  branch  n,  f  is  a  linear 

d  t 

operator  of  the  type  f,  or  constant,  and  a„  are  constants.  It  should 
be  noted  that  eqn.  (3-23)  models  a  3-port  device. 

In  the  present  version,  pRANC  imposes  the  following  restrictions  on  the 
circuit  parameters:  maximum  number  of  elements  (both  linear  and  nonlinear) 
=  63;  maximum  number  of  nonlinear  elements  =  10;  maximum  number  of  dependent 
nonlinear  elements  (eqn.  3-23)  =  5;  maximum  number  of  reactive  elements  = 
20;  maximum  number  of  independent  nodes  =  30;  number  of  input  frequencies  = 
5.  These  restrictions  can  be  relaxed  if  desired.  The  modular  structure  and 
algorithms  of  PRANC  makes  it  possible  to  extend  the  order  of  analysis  in  a 
straightforward  manner.  The  limit  on  the  highest  order  will  eventually  be 
dictated  by  the  storage  restrictions  of  the  computer. 

The  validity  of  the  results  obtained  from  using  PRANC  has  been  verified 
through  hand-worked  examples  and  with  the  results  obtained  from  using  NCAP 
C2A] .  In  Chapter  4  we  present  examples  showing  the  results  obtained  from 


the  use  of  PRANC. 


CHAPTER  4 


USER'S  GUIDE  FOR  PRANC 


4-1 .  Introduction 

Based  upon  the  theory  of  Chapter  2  and  the  algorithms  of  Chapter  3, 
PRANC  (Program  for  Analyzing  Nonlinear  Circuits),  a  digital  computer  pro¬ 
gram,  has  been  developed  for  the  sinusoidal  steady  state  analysis  of  cir¬ 
cuits  with  multiple  nonlinear  elements  and  multiple  multi-frequency  input 
sources.  The  complete  listing  of  the  program  is  contained  in  Chapter  5. 

The  usefulness  of  PRANC  is  not  restricted  only  to  users  who  are  well- 
versed  in  the  Volterra  series  method;  users  with  a  basic  knowledge  of  the 
significance  of  sinusoidal  steady  state  analysis,  eigenvalues  (poles)  of  a 
linear  system,  and  other  related  circuit  analysis  concepts  can  easily  use 
the  program,  and  understand  the  information  provided  by  it.  By  suitably 
translating  the  circuit  analysis  problem  into  a  prescribed  sequence  of 
well-defined  statements  -  to  be  presented  in  this  chapter  -  any  user  can  use 
PRANC  as  an  analysis  tool. 

To  methodically  and  effectively  use  PRANC,  the  user  is  recommended  to 
follow  a  three-step  process: 

1.  Preliminary  Data  Preparation 

2.  Translation  of  Data  for  Analysis 

3.  Interpretation  of  Analysis'  results. 

The  contents  of  this  Chapter  are  organized  on  the  basis  of  these  steps. 

In  section  4-2,  the  considerations  entailed  in  the  preliminary  data 
preparation  are  presented.  The  allowed  elements,  the  user  available  op¬ 
tions,  and  the  program  restrictions  in  terms  of  the  circuit  size  and 
features  are  discussed. 
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Section  4-3  presents  the  sequence  of  input  cards  (input  data  to  the 


program)  for  PRANC.  The  formats  for  each  card  in  the  sequence  is  described. 
The  interpretation  of  the  program  output  is  the  subject  of  section  4-4.  Fi¬ 
nally,  several  examples  are  presented  in  section  4-5  to  illustrate  the  use 
of  PRANC. 

4- 2 .  Prel iminary  Data  Preparation 

4-2.1  Allowable  Element  Types:  The  first  step  in  any  circuit  analysis  prob¬ 
lem  is  the  drawing  of  its  complete  circuit  model.  This  diagram  should  in¬ 
clude  all  elements  which  can  be  identified  by  PRANC. 

The  present  version  of  PRANC  is  capable  of  identifying  the  following 
element  types,  which  are  depicted  in  Fig.  4-1: 

•  Independent  voltage  source 

•  Linear  Components:  Resistor,  Inductor,  and  Capacitor 

•  Linear  Dependent  Sources:  Voltage-controlled  Voltage  source, 

Current-Controlled  Current-Source,  Voltage-controlled  current-source, 
and  Current-controlled  voltage-source. 

•  Nonlinear  Components:  Resistor,  Inductor,  and  Capacitor 

•  Nonlinear  Dependent  Source:  Voltage-controlled  current-source. 

•  Bipolar  Junction  Transistor 

The  polarity  convention  assumed  by  PRANC  is  shown  in  Fig.  4-1.  The  current 

voltage  relationships  for  linear  elements  are  well-known.  The  nonlinear 

elements  are  assumed  to  be  represented  in  the  form  of  polynomials  of  branch 

voltage(s) .  Thus,  PRANC  handles  nonlinear  elements  expressed  as: 
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El emen  t 


Symbol 


Linear  Components : 
Res i stor 


Capaci tor 


xx 

O- 


R  or  G 

- Wv- 


vk 


xx 


yy 


I  nductor 


xx 


sm^- 


yy 


i  r.ea r  Jepjndent  sources  : 
Voltage-Controlled  Voltage 
Source 


xx 


Voltage-Controlled  Current 
Source 


Current-Controlled  Voltage 
Source 


Current-Controlled  Voltage 
Source 


Non  I i near  Componen  ts : 
Res i stor 


Figure  4-1  PRANC  Element  Definitions 
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(4-2) 


where  f  is  an  operator  of  the  form  f,  or  a  constant,  u  and  v  are  branch 
voltages,  and  i^L  is  the  current  across  the  nonlinear  element.  It  should  be 
noted  that  eqn.  (4-1)  is  adequate  to  model  a  nonlinear  capacitor,  a  non¬ 
linear  inductor,  or  a  nonlinear  resistor,  and  that  eqn.  (4-2)  is  suitable  to 
model  a  3-port  or  a  2-port  voltage  controlled  nonlinear  dependent  source. 

The  representation  of  a  nonlinear  device  in  terms  of  a  polynomial  is 
covered  in  several  papers  and  reports  t?,l03.  An  example  of  the  development 
of  a  polynomial  representation  for  a  semiconductor  diode  is  given  in  Appen- 
di  x  A. 

It  should  be  noted  that  if  a  current-controlled  nonlinear  element  is 
present  in  the  circuit,  the  reversion  of  the  series  may  be  used.  That  is, 
given 


'NL 
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+  Vnl 


(a1  *  0) 


We  can  express 
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(4-5) 


A  =  i- 
1  a„ 


A2  =  "  a3 
a1 


(4-6) 


A3  "  "T  iZa?  ~  a1a3) 
a1 


(4-7) 


where  i  and  v^  are  the  current  and  voltage  across  the  nonlinear  element, 
respectively. 

The  element  node  numbers  are  shown  by  symbols  xx  and  yy  in  Fig.  4-1. 
For  devices  representab le  in  terms  of  a  pair  of  nodes,  or  a  collection 
thereof,  the  node  numbers  are  assigned  by  the  user.  The  node  numbering  for 
a  bipolar  junction  transistor  is  done  internally  within  the  program  once  the 


node 

number 

for 

the  base 

terminal 

of  the  transistor  has 

been 

specified  by 

the 

user. 
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for 

the 
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PRANC 

i  s 

based  on 

Narayanan’ s 

work 

F7],  and 

i  s 
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with 

the 

program- 

assigned  node  numbers. 


4-2.2.  User  Avai lable  Opt i ons : 

PRANC  performs  the  complete  sinusoidal  steady  state  analysis  of  a  non¬ 
linear  circuit.  In  accomplishing  this  task,  the  program  obtains  the  state 
equations  and  the  eigenvalues  for  the  linearized  circuit,  forms  the  entries 
of  the  open  circuit  impedance  matrix*  in  oartial  fraction  expansion  form, 
and  then  computes  -t^e  first-,  second-,  and  third-order  transfer  function 
values  at  each  combination  of--*. the  positive  and  negative  input  frequency 
values.  The  output  voltage  at  each  frequency  component  is  then  computed 


♦This  is  an  equivalent  form  of  the  inverse  of  the  reduced  node  admit¬ 
tance. 


c 
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T  rans 


from  the  transfer  function.  The  sinusoidat  steady  state  response  is  ob¬ 
tained  after  combining  the  various  order  responses  at  repeated  frequency 
values. 

In  order  to  provide  flexioility  to  the  user  to  control  the  program  out¬ 
put,  several  options  have  been  incorporated  in  PRANC.  These  are  described 
next . 

1.  Frequency  Sweep.  Many  applications  in  distortion  and  spectrum  analysis 
of  nonlinear  circuits  calls  for  the  study  of  the  effect  of  frequency  on  the 
distortion  products.  A  Frequency  sweep  capability,  which  allows  the  user  to 
request  multiple  analyses  of  a  given  circuit  over  a  range  of  generator  fre¬ 
quency  values  in  a  single  execution,  is  provided  by  PRANC.  This  option  can 
be  called  for  by  specifying  the  acronym  FS  on  the  option  card. 

PRANC  allows  the  user  to  sweep  up  to  five  tones*.  This  allows  the  user 
to  study  the  effect  of  frequency  on  the  second-  and  third-order  intermodula¬ 
tion  products  independently.  In  a  third  order  analysis,  a  combination  of 
three  input  freouencies  is  taken  at  a  time  to  compute  the  amplitude  of  an 
intermodulation  product;  sweeping  up  to  three  frequencies  is  therefore  suf¬ 
ficient  to  study  the  effect  af  frequency  on  an  intermodulation  product. 
Thus,  given  a  fixed  intermodulation  frequence  +  ui.,  -  where 

and  ^  are  the  input  frequencies,  the  effect  of  a  change  in  the  in¬ 
put  frequencies  on  can  be  investigated  t  y  simultaneously  incrementing 

1“ 

and  ,i7  by  a  fixed  amount  across  the  band  of  interest.  The  study  of 
the  effect  of  frequency  on  a  second-order  distortion  product  is  done  simi¬ 
larly  by  varying  two  tones  at  a  time.  Both  linear  and  logarithmic  frequency 
sweeps  are  available  on  PRANC. 

♦Since  PRANC  generates  the  negative  of  the  input  frequencies  internally, 
this  is  equivalent  to  sweeping  ten  frequencies. 
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2.  Multiple  Input  Sources.  Ordinarily  PRANC  assumes  the  nonlinear  circuit 
to  have  a  single  multi-frequency  input  source.  However,  when  a  two  source 
circuit,  such  as  a  mixer  circuit,  is  to  be  analyzed,  the  acronym  MX  (mixer) 
on  the  option  card  can  be  used.  PRANC  will,  in  such  a  case,  look  for  the 
description  of  the  second  input  source.  The  first  generator  can  have  up  to 
four  input  tones,  and  the  second  generator  (the  "local  oscillator")  only  one 
input  frequency. 

3.  Print  and  Plot  Complete  Spectrum.  After  computing  the  transfer  func¬ 
tions  and  output  voltages,  PRANC  performs  a  histogram  type  analysis  of  all 
frequency  points  to  compute  the  complete  output  spectrum  across  a  requested 
circuit  element  for  printing  and  plotting  purposes.  Often  times  the  user 
may  be  only  interested  in  the  transfer  function  and  output  voltage  values, 
and  may  have  no  use  for  the  complete  output  spectrum.  In  order  to  provide 
the  flexibility  for  suppressing  the  printing  and  plotting  of  the  complete 
output  spectrum,  an  option  to  be  specified  by  the  user  is  available.  By  us¬ 
ing  the  acronym  PC  on  the  option  card  the  user  can  request  for  a  print-out 
and  plot  of  the  complete  output  spectrum;  an  absence  of  PC  on  the  option 
card  signals  the  program  to  suppress  the  histogram  analysis  feature. 

A.  Output  Port  Print-out  Selection.  PRANC  performs  the  analysis  of  the 
nonlinear  circuit  on  a  port  basis.  Two  types  of  ports  are  extracted  in  the 
analysis:  1)  Input  and  output  ports  specified  by  the  user,  and  2)  control¬ 
ling  ports  for  the  nonlinear  elements.  Depending  on  the  number  of  nonlinear 
elements  and  the  number  of  controlling  voltage  variables,  the  number  of  the 
extracted  ports  can  become  quite  large  and  thereby  result  in  an  inordinately 
large  amount  of  printed  output  if  the  transfer  function  and  output  voltage 
at  each  frequency  component  and  at  each  of  the  ports  is  printed.  To  reduce 


the  amount  of  printed  output,  an  option  for  the  printing  of  selected  output 
ports  can  be  requested.  By  using  the  acronym  AP  (All  extracted  ports)  on 
the  option  card,  the  transfer  functions  and  output  voltages  at  each  of  the 
extracted  ports  is  printed;  an  absence  of  AP  on  the  option  card  signals  the 
program  to  print  the  transfer  functions  and  output  voltages  at  only  the 
user-prescribed  output  ports. 


5.  State  Space  Description  Print.  The  open  circuit  impedance  matrix  for 
the  linearized  circuit  is  obtained  via  the  state  space  description  (see  eqn. 
3-‘_  ) .  The  user  can  request  a  print-out  of  this  description  by  specifying 
the  acronym  SE  on  the  option  card.  When  SE  is  omitted  from  the  option  card, 
the  printing  of  the  A,  B,  C  and  D  matrices  is  suppressed. 


6.  Eigenvalue,  Modal  Mat r i x  Print .  The  eigenvalues  or  the  poles  of  the 
linearized  circuit,  and  their  associated  eigenvectors,  are  computed  by 
PRANC.  The  user  may  access  this  information  by  specifying  NM  (natural 
modes)  on  the  option  card.  The  eigenvalues  and  the  modal  matrix  are  not 
printed  when  the  letters  NM  are  omitted  from  the  option  card. 

7.  Open  C i rcui t  Impedance  Mat r i x  Print .  The  open  circuit  impedance  matrix 
for  the  linearized  circuit  is  obtained  in  partial  fraction  expansion  form  by 
PRANC.  Each  entry  of  this  matrix  is  obtained  in  terms  of  a  set  of  pole- 
residue  pairs  and  can  be  written  as: 


z  .  .  (s)  =  - -  +  constant 

'J  k 


(4-8) 


where  rk  is  the  residue  associated  with  the  pole  \ Knowing  all  the  en¬ 
tries  of  the  open-circuit  impedance  matrix  in  the  form  (4-8),  it  is  possible 

to  obtain  the  higher  order  transfer  functions  in  terms  of  s.  C233.  By  using 
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the  acronym  PR  (pole-_residue)  on  the  option  card,  all  information  required 
to  obtain  each  entry  of  the  open  circuit  impedance  matrix  in  the  form  (4-8) 
can  be  accessed  from  PRANC. 

8*  Debug  Print.  The  hybrid  analysis  formulation  is  used  by  PRANC  to  set  up 
the  state  space  description  of  the  linearized  circuit.  All  important  inter¬ 
mediate  results  leading  to  the  determining  of  the  hybrid  matrix  can  be  ob¬ 
tained  by  the  user  by  requesting  a  debug  run.  This  option  is  invoked  by 
specifying  the  acronym  DB  on  the  option  card. 

4-2.3.  Program  Restrictions 

The  present  version  of  PRANC  imposes  the  following  restrictions  on  the 
circuit  size: 


Maximum  number  of  elements  (both  linear  and  nonlinear)  =  60 
Maximum  number  of  nonlinear  elements+  =  10 
Maximum  number  of  dependent  nonlinear  elements  =  5 
Maximum  number  of  reactive  elements  =  20 
Maximum  number  of  independent  nodes  =  30 
Maximum  number  of  input  frequencies*  =  5 
Maximum  number  of  extracted  ports**  =  25 
Maximum  number  of  inputs  =  2 


In  addition  to  the  above  size  restrictions,  there  are  other  restric¬ 
tions  imposed  by  the  algorithms  used:  the  presence  of  degenerate  (all 
capacitor-voltage  source)  loops  or  degenerate  (all  inductor-current  source) 

+A  bipolar  transistor  accounts  for  three  nonlinear  elements. 

♦These  are  the  sine  wave  input  frequencies.  The  negative  frequencies 
are  generated  within  the  program. 

★♦Number  of  extracted  ports  £  NO  +  NINL  +  3NDNL  +  1; 

NO  r  number  of  requested  outputs 

NINL  -  number  of  independent  nonlinear  elements 

NDNL  =  number  of  dependent  nonlinear  elements. 
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cutsets  C207  wilt  lead  to  erroneous  results.  It  should  be  noted  that  this 
restriction  is  not  severe  when  the  realistic  lossy  models  for  capacitors  or 
inductors  are  used.  A  series  resistance  with  a  capacitor  or  a  shunt  resis¬ 
tance  with  an  inductor  to  account  for  the  element  non-idea l i t i es  will  insure 
the  absence  of  3ny  of  the  aforementioned  degenerate  cases. 

Another  restriction  encountered  in  PRANC  is  related  to  the  determina¬ 
tion  of  the  eigenvectors.  It  is  well  known  r 29 3  that  the  computation  of  the 
eigenvectors  for  repeated  eigenvalues  can  be  an  ill-conditioned  problem. 
Thus,  whenever  a  linearized  circuit  has  repeated  eigenvalues,  PRANC  outputs 
a  diagnostic  message*.  Again  it  is  remarked  that  this  restriction  is  not 
very  severe.  One  can  easily  concoct  simple  network  examples  with  repeated 
eigenvalues;  but  in  real-life  circuits,  the  probability  of  encountering  re¬ 
peated  eigenvalues  is  very  low  -  particularly  when  one  considers  the  method 
of  storing  numbers  in  the  finite  length  word  of  any  digital  computer. 

To  summarize  this  sub-section,  the  following  three-step  procedure  is 
recommended  to  the  user  as  part  of  the  preliminary  data  preparation: 

Step  1:  Examine  the  circuit  under  cons iderat i on  to  insure  that  all  elements 
are  recognizable  by  PRANC.  Furthermore,  insure  that  there  are  no  degenerate 
loops  or  degenerate  cutsets  C203.  If  such  conditions  exist,  the  following 
remedy  is  recommended:  place  a  negligibly  small  resistor  in  a  degenerate 
loop;  place  a  negligibly  small  conductance  in  parallel  with  one  of  the  ele¬ 
ments  of  the  degenerate  cutset. 

Step  2:  Assign  consecutive  numbers  to  all  elements  in  the  circuit  (including 
a  bipolar  transistor)  from  1  to  NB  and  all  nodes  in  the  circuit  from  0  to 
NN,  where  NB  is  the  number  of  elements  (both  linear  and  nonlinear)  and  NN  is 

*It  should  be  noted  that  this  is  due  only  to  the  numerical  problems  and 

that  the  theory  of  chapters  2  and  ^  is  still  valid. 


/ 
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the  number  of  independent  nodes.  Node  number  0  is  assumed  to  be  the  ground 
node.  Insure  that  the  circuit  size  does  not  exceed  the  limits  imposed  by 
the  present  version  of  PRANC. 

Step  3:  Note  the  number  of  linear  and  nonlinear  elements,  <nd  the  number  and 
unit  of  the  input  frequencies.  Based  on  the  list  of  available  options, 
select  the  ones  desirable  for  the  circuit  analysis  problem  at  hand. 

4-3.  Input  Description  for  PRANC 

In  this  sub-section,  the  details  of  the  prescribed  sequence  of  cards 
needed  for  using  PRANC  are  presented.  After  the  preliminary  data  prepara¬ 
tion  step  is  done,  the  procedure  for  translating  the  circuit  description 
into  input  data  is  straightforward. 

Assuming  that  PRANC  is  stored  in  the  computer,  the  sequence  of  cards 
needed  for  the  analysis  of  a  nonlinear  circuit  with  a  single  source  is  shown 
in  Fig.  4-3;  the  case  of  the  two-input  source  circuit  is  shown  in  Fig.  4-4. 
There  are  basically  six  types  of  cards  present  in  the  input  data  for  PRANC. 
These  are:  1)  Title  card;  2)  Option  Card;  3)  Analysis  Parameter  card;  4) 
Linear  Component  description  cards;  5)  Nonlinear  component  description 
cards;  and  6)  Generator  description  cards.  The  details  of  the  contents  of 
each  of  these  card  types  ">re  described  next. 

1.  Title  Card :  This  card  is  read  in  with  an  80A1  form  and  is  reproduced  as 
the  tirst  tine  of  the  output. 

2.  Options  Card:  This  card  telts  the  program  which  options,  described  in 
section  4-2.2,  are  desired  by  the  user.  Each  option  has  a  two-letter  acro¬ 
nym  associated  with  it.  These  acronyms  are  summarized  in  Table  4-1.  Start¬ 
ing  in  column  1  the  user  must  punch  a  contiguous  string  of  the  acronyms  re- 
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quired  to  request  the  specific  options.  The  card  must  therefore  be  in  the 


following  format 

■ 

Column 

Format 

Description 

1-2 

A2 

First  desired  option 

acronym 

3-4 

A2 

Second  desired  option 

acronym 

5-6 

A2 

Third  desir.-d  option 

ac  ronym 

See  section  4-5  for  ex  amp  L  es . 

3.  Analysis  Parameter  Card:  The  analysis  parameter  card  contains  informa¬ 
tion  regarding  the  number  of  linear  elements,,  the  number  of  nonlinear  ele¬ 
ments  (the  transistor  should  be  counted  as  1  nonlinear  element  by  the  user), 
the  number  of  sinusoidal  frequencies  (<5)  in  the  input  signal*,  the  unit  of 
the  input  frequencies,  and  the  type  of  frequency  sweep  (if  desired).  This 
card  must  be  in  the  following  format: 

Column  Format  Descript  ion 

1-2  12  No.  of  linear  elements 

3-4  12  No.  of  nonlinear  elements 

5  II  No.  of  input  frequencies 

6-8  A3  Unit  for  the  input  frequencies 

use  RAD  f.  r  rad/sec.  Hz  for  Hertz 
9-11  A3  Type  of  frequency  sweep,  if  desired; 

LIN  for  linear  and  LOG  for  logarithmic 

*This  does  not  include  the  local  oscillator  frequency  in  the  case  of  a 
mixer  circuit. 
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Print  state-space  description  of  the 
Linearized  circuit 


It  should  be  noted  that  the  I-format  and  the  A-format  are  always  right 
justified. 

4.  Linear  Component  Description  Cards:  Each  branch  containing  a  linear  ele¬ 
ment  save  the  independent  source(s)  and  its  impedance(s)  must  be  described 
in  terms  of  its  topological  connections,  its  element  value  and  type,  and  its 
controlling  branch  number,  if  any.  Each  linear  element  description  card 
must  use  the  following  format: 


Column 

1-3 

4-6 

7-9 

10-11 


Format 

13 

13 

13 


Desc  r  ipt ion 
Branch  number 

Positive  ("~rom")  node  number 

Negative  ("To")  node  number  (Sign 
convention  for  PRANC  is  shown  in 
Fig.  4-1 ) 

Element  type.  The  following  element 
types  and  their  acronyms  are  recognized 
by  PRANC: 

R  Resistance 
6  Conductance 
L  Inductance 
C  Capacitance 

CV  £urrent-control led  Voltage 
source 

VV  Vol t age-cont ro l l ed  Voltage 
source 

VC  Vol t age-cont rol led  Gurrent 
source 

CC  Current-cont rol led  Current 
source 

(Note:  R,L,G,  or  C  must  be  present 

in  column  11:  r ight- j us t i f ied) 


12-21 

E10.3* 

Element  value  of  R,G,L,C,  or  dependent 
source. 

22-24 

13 

Branch  number  for  the  controlling  branch 
of  CC,  CV,  VV,  or  VC.  For  other  element 

*(Note:  For  an  E-format  input:  the  exponent  appears  as  a  signed  two  di¬ 
git  integer  in  the  three  right  most  columns  of  the  format  field,  and  is 
preceeded  by  a  letter  E,  which  is  proceeded  by  the  floating  point  value. 
Thus,  for  example,  a  6.6uF  capacitor  value  should  appear  as: 

11 11 11 11 11 12  L8  J2  20  il, 

]  6  *  600  F.  -  06 
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types  this  should  be  left  blank. 

25  II  This  column  is  used  to  provide  multiple 

output  capability.  A  1  in  this  column 
indicates  that  the  current  branch  number 
is  an  output  branch;  a  blank  indicates 
otherwi se . 

26  A1  An  asterisk  (*)  in  this  column  indicates 

that  the  complete  output  spectrum  across 
this  branch  should  be  printed  and  plotted; 
a  blank  indicates  otherwise.  Note:  only 
one  such  branch  is  allowed  in  the  current 
version  of  PRANC. 

5.  Nonlinear  Component  Description  Cards:  Two  cards  are  used  to  describe 
each  nonlinear  capacitor,  inductor,  resistor,  or  a  dependent  source.  The 
first  card  describes  the  nonlinear  component  type  and  its  connection  in  the 
circuit;  and  the  following  card,  the  second  card,  defines  the  coefficient 
values  in  the  polynomial  expansion  of  the  nonlinear  element  (as  per  eqns. 
4-1  and  4-2).  The  nonlinear  components  are  assumed  to  have  a  voltage- 
controlled  current. 

The  format  for  the  two  cards  required  to  define  a  two  terminal  non¬ 
linear  component  is  as  follows: 

First  Card: 


Column 

Format 

Description 

1-3 

13 

Component  number 

4-6 

13 

Positive  ("from")  node  number  of  the 
component 

7-9 

13 

Negative  ("to")  node  number  of  the 
component 

10-11 

A2 

Element  Type.  The  following  acronyms 
are  allowed  for  the  various  element 

types : 

NC  Nonlinear  Capacitor 
NL  Nonlinear  Inductor 
NR  Nonlinear  Resistor 
NO  Dependent  Nonlinearity  (eqn.  4-2) 


12-14 


13 


First  controlling  voltage  branch 
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number  for  the  dependent  nonlinearity. 
These  columns  are  left  blank  in  the  case 
of  NC,  NIL,  or  NR. 

15-17  13  Second  controlling  voltage  branch  number 

for  the  dependent  nonlinearity.  These 
columns  are  left  blank  in  the  case  of 
NC,  NL,  NR,  or  single-voltage-controlled 
dependent  nonlinearity. 

Second  Card:  This  card  is  used  to  define  the  coefficients  of  the  polynomial 
describing  the  nonlinear  element  described  on  the  first  card.  The  format 
for  this  card  is: 


Column 

Format 

Desc  r ipt ion 

1-10 

E10.3 

Coefficient 

a1 

a10 

i  n 

eqn . 

(4-1) 

or  coefficient 

i  n 

eqn . 

(4-2) 

11-20 

E10.3 

Coefficient 

a2 

i  n 

eqn . 

(4-1) 

or  coefficient 

aoi 

in 

eqn . 

(4-2) 

21-30 

E10.3 

Coefficient 

a3 

i  n 

eqn. 

(4-1) 

or  coefficient 

a20 

in 

eqn. 

(4-2) 

04 

\ 

■T' 

O 

E10.3 

Coef f i c i ent 

a02 

i  n 

eqn. 

(4-2) 

41-50 

E10.3 

Coef f ic ient 

a11 

i  n 

eqn . 

(4-2) 

51-60 

E10.3 

Coef f ic ient 

a30 

i  n 

eqn . 

(4-2) 

61-70 

E10.3 

Coefficient 

a03 

i  n 

eqn. 

(4-2) 

71-80 

E10.3 

Coefficient 

a21 

i  n 

eqn. 

(4-2) 

1-10 

(new 

card) 

E10.3 

Coefficient 

a1 2 

i  n 

eqn. 

(4-2) 

Three  cards  are  needed  to  describe  each  bipolar  transistor  in  the  cii — 
cuit.  The  first  card  indicates  that  a  transistor  present  and  also  speci¬ 
fies  the  node  number  for  the  external  base  terminal.  The  second  and  third 
cards  input  the  transistor  parameters  for  the  purpose  of  PRANC  modelling. 
These  parameters  include  the  following  (see  Fig.  4-2): 

Parameter  No.  Parameter  Name  Descript  ion 

1  n  Avalanche  Exponent 
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2 

VcB 

Collector-base  bias  Voltage 

3 

VcB0 

Avalanche  Voltage 

4 

M 

Collector  Capacitance  Exponent 

5 

I 

c 

Collector  bias  current 

6 

I 

cmax 

Collector  current  at  maximum  d.c. 
current  gain 

7 

a 

hp^  nonlinearity  coefficient 

8 

^FEmax 

maximum  d.c.  current  gain 

9 

k 

collector  capacitance  scale  factor 

10 

Ref 

Diode  non-ideality  factor 

11 

C. 

je 

Base-emitter  junction  space 
charge  capacitance 

12 

1 

C2 

Derivative  of  base-emitter 
diffusion  capacitance 

13 

rb 

Base  resistance 

14 

r 

c 

Collector  resistance 

15 

C1 

Base-emitter  capacitance 

16 

C3 

Base-collector  and  overlap 
capacitance 

Once  the  external  base  terminal  node,  xx,  has  been  specified  by  the  user, 
the  following  node  numbers  are  internally  assigned  by  the  program  to  the 
other  terminals  in  the  transistor  model: 

xx  +  1  :  Internal  Junction 
xx  +  2  :  External  collector 
xx  +  3  :  External  emitter 

The  user  must  therefore  take  caution  in  not  assigning  these  node  numbers 
elsewhere  in  the  circuit. 
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For  the  bipolar  junction  transistor  description,  the  following  sequence  of 
cards  are  used: 

First  Card:  The  format  of  the  first  card  for  the  description  of  a  BJT  is 
identical  to  that  foi  the  two  terminal  nonlinear  components.  Accordingly, 
the  following  format  is  used: 


Columns 

Format 

Desc  r i pt i on 

1-3 

13 

Component  number* 

4-6 

13 

External  base  node  number 

7-9 

13 

(blank) 

10-11 

A2 

The  acronym  TR  in  these  coLumns 
signals  the  presence  of  a  bipolar 
junction  transistor. 

A  TR  in  columns  10-11  on  the 

first  card  of  the  nonlinear  description 

cards 

causes  PRANC  to 

read  two 

additional  cards  describing  the  transistor  para me- 

ters.  The  format 

and  the 

order  in  which  the  parameters  are  read  is  as 

fo  l- 

lows : 

Second  Card: 
Columns 

Format 

Description 

1-10 

E10.3 

n  :  Avalanche  Exponent  Value 

11-20 

E10.3 

V  „  :  Collector-base  bias  voltage  value 

cB 

21-30 

E10.3 

V  :  Avalanche  voltage  value 

cBO 

04 

1 

o 

E10.3 

u  :  Collector  capacitance  exponent  value 

41-50 

E10.3 

I  :  Collector  bias  current  value 

c 

51-60 

E10.3 

I  :  Collector  current  at  maximum 

cmax  , 

gain  value 

d.c . 

61-70 

E10.3 

a  :  hp^  nonlinearity  coefficient 

value 

71-80 

E10.3 

be 

hFEmax:  current  gain  value 

the 

♦Each  transi afor  should 

counted  as  one  nonlinear  component  in 

circuit. 
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Third  Card: 
Columns 
1-10 

11-20 

Format 

E10.3 

E10.3 

k 

Ref 

Description 

:  collector  capacitance  scale  factor  value 
:  diode  non-ideality  factor  value 

21-30 

E10.3 

Cje 

:  Base-emitter  junction  space-charge 
capacitance  value 

31-40 

E10.3 

1 

C2 

:  Derivative  of  base-emitter  diffusion 
capacitance  value 

41-50 

E10.3 

rb 

:  base  resistance  value 

51-60 

E10.3 

r 

c 

:  collector  resistance  value 

61-70 

E10.3 

ci 

:  base-emitter  capacitance  value 

71-80 

E10.3 

C3 

:  base-collector  and  overlap 
capacitance  value 

In  summary,  the  nonlinear  component  description  cards  are  a  sequence  of 
cards  where: 

1)  Two  cards  are  used  to  describe  each  nonlinear  resistor,  nonlinear  capa¬ 
citor,  or  nonlinear  inductor; 

2)  Three  cards  are  used  to  describe  each  nonlinear  dependent  source; 

3)  Three  cards  are  used  to  describe  each  bipolar  junction  transistor  in  the 
ci rcui t . 

6.  Generator  Description  Cards:  PRANC  assumes  the  independent  source  to  be 
a  voltage  source  in  series  with  an  impedance,  as  shown  previously  in  Fig. 
4.1.  The  impedance  can  be  a  linear  resistor,  a  linear  capacitor,  or  a 
linear  inductor.  Two  types  of  cards  are  required  to  describe  the  generator: 
the  first  card  specifies  the  generator  connection  in  the  circuit  and  the 
succeeding  cards  describe  the  frequencies  and  their  associated  amplitudes 
along  with  the  parameters  for  frequency  sweep  capability,  if  desired  by  the 


.-jttat&ijtA... 


user. 
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Only  two  nodes  are  needed  to  specify  the  connection  of  the  generator  to 
the  circuit. 


The  input  voltage  source  is  assumed  to  have  the  following  form: 

n 

v  (t)  =  1'  A.  cos  (oj  .  t  +  0.);  n  <  5  (4-9) 

i=1  11 

The  user  is  therefore  required  to  input  the  values  for  A.,  w „  and  6  to 

i  t  l 

describe  the  input  source. 

When  the  frequency  sweep  capability  is  requested  by  the  user  on  the  op¬ 
tion  card,  the  following  three  quantities  must  also  be  specified  along  with 
A  ^ ,  a).,  and  0^:  1)  the  number  of  steps  or  frequency  increments;  2)  the 
highest  or  terminal  value  of  the  frequency  sweep;  and  3)  type  of  the  desired 
sweep,  which  indicates  whether  the  increment  is  to  be  linear  (additive)  or 
logarithmic  (multiplicative). 

It  should  be  noted  that  the  number  of  steps  defines  the  number  of  times 
the  circuit  is  to  be  analyzed.  For  linear  sweeps  the  value  of  the  increment 
is  calculated  by  the  program  according  to  the  expression: 


INC  . 

i 


HFR .  -  FR. 

l _ l 

NSTP .  -  1 

l 


(4-8) 


where  INC^  =  frequency  increment  value  for  the  i-th  frequency, 

HFR^  r  highest  value  for  the  i-th  frequency, 

FR^  ;  starting  value  for  the  i-th  frequency, 

NSTP^  -  number  of  increments  for  the  i-th  frequency. 

Similarly,  for  a  logarithmic  sweep,  the  increments  are  calculated  as  fol¬ 
lows  : 
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INC  . 

i 


(4-11) 


1 


HFR . 

NSTP.-1 

1 

FR. 

l 

(4-12) 

In  determining  the  value  for  the  number  of  increments,  the  user 
should  be  aware  that  the  highest  and  the  starting  frequency  values  each 
count  as  an  increment.  It  should  also  be  noted  that  multiple  frequency 
sweep  specifications  always  result  in  simultaneous  increments  of  the  fre¬ 
quency  values  involved.  The  largest  defined  "number  of  increments"  value 
determines  the  number  of  analyses  to  be  performed  in  such  cases.  As  the 
analysis  progresses,  each  frequency  value  will  be  incremented  until  its 
highest  value  has  been  reached,  after  which  it  will  remain  constant  until 
all  defined  frequency  sweeps  have  been  satisfied. 

The  first  card  in  the  generator  description  card  has  the  following  in¬ 
put  format: 


Column 

Format 

Description 

1-3 

13 

Positive  ("from")  node 
generator 

number  for 

the 

4-6 

13 

Negative  ("To")  node  of 

the  generator 

7-8 

A2 

Source  Impedance  Type: 

R,  _l,  or 

_C 

9-18 

E10.3 

Source  impedance  element  value 

The  cards  following  the  above  card  provide  information  about  each  frequency 
value,  along  with  its  associated  amplitude  and  phase,  and  its  frequency 
sweep  parameters.  The  format  used  to  describe  the  i-th  input  frequency  is 
as  follows: 
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Column 


Format 


Desc  ript ion 


1-10 

E10.3 

Amplitude  value  for  the  i-th  frequency 

11-20 

E10.3 

i-th  input  frequency  value  (must  be 
greater  than  0) 

21-30 

E10.3 

Phase  value  in  degrees  for  the  i-th 
frequency 

31-40 

E10.3 

Highest  value  for  the  i-th  input 
frequency.  Should  be  left  blank 
when  frequency  sweep  capability  is 
not  desired. 

41-42 

12 

Number  of  increments  desired  for 
the  i-th  frequency. 

When  two 

input  sources  are 

present  in  the  circuit  being  analyzed. 

and 

the  acronvm 

MX  has  been  included  on  the  option  card,  the  card  immediately 

following  the 

above  "frequency 

description"  cards  is  used  to  define 

the 

second  source 

("local 

oscillator")  parameters.  The  second  cource  is  again 

assumed  to  be 

a  voltage 

source 

with  a  series  impedance  of  the  resistive. 

i  n- 

ductive,  or 

capac i five 

type. 

Only  one  frequency  value  is  however  allowed 

for  the  second 

source . 

The  description  of  the  second  source  must  have 

the 

following  format: 

Column 

Format 

Desc  r i pt ion 

1-3 

13 

Positive  ("from")  node  number  for  the 

source 

4-6 

13 

Negative  ("To")  node  number  for  the 
source 

7-8 

A2 

Source  impedance  type:  R,  L,  or  C 

9-18 

E10.3 

Source  impedance  element  value 

19-28 

E10.3 

Amplitude  value  of  source 

29-38 

E 10. 3 

Source  ("local  oscillator")  frequency 
va 1  ue 

39-48 

E10.3 

Ph.ose  value  in  degrees  for  the  source 
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In  section  4-5  we  shall  present  concrete  examples  to  illustrate  the 
typical  sequence  of  cards  used  to  translate  nonlinear  circuit  problems  for 
analysis  using  PRANC.  ^ 

4-4.  Interpretation  of  PRANC  Output 

A  typical  PRANC  output  comprises  a  large  volume  of  printed  information. 
In  general,  even  when  all  user  available  options  are  suppressed,  the  output 
consists  of:  1)  images  of  all  input  cards;  2)  all  circuit  devices*  with 
their  associated  parameters  and  polynomial  representation  of  their  non- 
linearities;  3)  the  description  of  the  augmented  linear  network;  4)  the 
description  of  all  extracted  ports;  and  5)  the  transfer  functions  and  output 
voltages  across  the  desired  output  ports.  The  transfer  functions  and  the 
output  voltages  are  printed  for  all  non-negative  ("positive"  frequency  spec¬ 
trum)  combinations  of  every  positive  and  negative  input  sinusoidal  frequen¬ 
cies**,  in  both  cartesian  and  log  polar  form.  Thus,  if  a  two-tone  generator 
is  specified  by  the  user,  with  2f^  >  f^  >  f^,  PRANC  will  print  the  transfer 
function  and  output  voltage  values  at  the  following  frequency  combinations: 

First  order  :  f^,f ^ 

Second  order  :  2f^,f .j+f^f^-f^/O^fp 
Third  order  :  3f ^,2f .j+f^f 

When  the  available  user  options  are  used,  additional  information  about 
the  circuit  is  provided  by  PRANC.  The  details  of  each  of  the  available  op¬ 
tion  was  presented  in  section  4-2.  We  briefly  repeat  their  functions  here. 

♦These  include  bipolar  junction  transistor  parameters  in  the  present 
version. 

**The  user  specifies  or  I y  the  positive  sinusoidal  frequencies;  PRANC 
generates  their  negative  values  within  the  program. 
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When  the  acronym  SE  is  punched  on  the  option  card,  PRANC  will  print  the 
complete  state  space  formulation  for  the  augmented  linear  network.  It  is 
well-known  C2CH  that,  like  the  nodal  or  loop  analysis,  a  linear  network  is 
completely  characterized  bv  its  state  space  description.  By  isolating  the 
dynamic  (energy  storage)  elements  in  the  linear  network,  the  state  equation 
description  emphasizes  the  dynamic  character  of  the  linear  part  of  the  non¬ 
linear  circuit  under  study.  PRANC  isolates  the  capacitor  voltages  and  the 
inductor  currents  as  the  state  variables  for  the  linearized  network.  It 
prints  the  A,  B,  C,  and  D  matrices  of  the  following  vector  equations: 


x_  =  Ax  +  Bi_ 
y  =  Cx  +  Di 


(4-13) 


where  the  vector  x  =  Cvc1  vc2 . . . vcn : i^  iL2...iLk3T/ 


and 


the  vector  _i_  =  Ci^  i  ^ - i ^ , 
the  vector  y^  =  Cv^  v-,...vpDT. 


Here  v^  is  the  i-the  capacitor  voltage,  i  ..  is  the  i — t h  inductor  current, 
and  v^  and  i ^  are  the  voltages  and  currents  for  the  k-th  extracted  port, 
respectively.  The  order  in  which  the  states  are  arranged  is  identical  to 
the  order  in  which  the  capacitors  and  inductors  appear  in  the  augmented 
Linear  description,  which  is  always  printed  by  PRANC  in  a  typical  successful 
e*''^*  ion  of  the  program. 

When  the  acronym  NM  appears  on  the  option  card,  the  eigenvalues  (poles) 
and  the  modal  matrix  for  the  augmented  linear  network  is  printed.  The  sig¬ 
nificance  of  this  information  is  well-known  C20T:  the  poles  have  a  direct 
bearing  on  the  linear  system  response  and  stability;  the  modal  matrix  can  be 
used  to  study  the  zero-input  response  along  with  the  observability  and  con¬ 
trollability  properties  of  the  linearized  system. 
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The  presence  of  the  acronym  PR  on  the  option  card  causes  PRANC  to  print 
the  pole-residue  information  of  each  entry  of  the  open-circuit  impedance  ma¬ 
trix  for  the  p-port  augmented  linear  circuit.  This  information  can  be  used 
to  construct  the  higher  order  transfer  functions  in  terms  of  the  transform 
variables  s. .  Multi-dimensional  transform  theory  C5D  can  then  be  applied  to 
these  transfer  functions  to  get  more  insight  into  the  operation  of  the  non¬ 
linear  circuit. 

The  presence  of  the  acronym  AP  on  the  option  card  causes  PRANC  to  print 
the  transfer  function  and  the  output  voltage  values  for  all  the  ports  ex¬ 
tracted  for  analyzing  the  nonlinear  circuit  problem.  These  ports  include: 
1)  input  source  port(s);  2)  user  requested  output  ports;  3)  the  ports  at 
which  the  nonlinear  elements  are  present;  and  4>  the  ports  which  control  the 
nonlinear  element  characteristics. 

When  the  acronym  PC  is  present  on  the  options  card,  the  complete 
steady-state  response  at  the  "most  desirable",  user-specified  output  port  is 
obtained  and  printed.  The  logarithm  of  the  output  voltage  is  also  plotted 
as  a  bar-graph,  which  has  the  same  display  characteristic  as  a  spectrum 
analyzer.  As  mentioned  previously,  frequency  components  appearing  in  the 
first-order  response  may  appear  in  higher-order  responses  also.  The  func¬ 
tion  of  the  option  under  consideration  is  to  combine  these  responses  and 
print  the  response  at  only  the  set  of  distinct  frequencies. 

The  use  of  the  debug  option  (DB)  causes  PRANC  to  print  the  intermediate 
results  of  hybrid  analysis  of  the  augmented  linear  circuit.  This  option  has 
been  incorporated  for  the  debugging  of  the  linear  circuit  analysis  and  is 
not  recommended  for  use  during  a  typical  run.  An  understanding  of  hybrid 
analysis  C203  is  necessary  to  interpret  the  output  —  which  can  be  quite 
voluminous  -  from  the  debug  run. 
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4-5 .  Examples  using  PRANC 

A  set  of  examples  are  presented  in  this  section  to  illustrate  the  use 
of  PRANC  for  obtaining  the  steady-state  response  of  nonlinear  circuits. 
Each  example  will  contain  the  problem  statement,  the  sequence  of  punched 
data  cards,  the  computer  printed  output,  and  some  remarks  on  the  printed 
output . 

Example  4_-1_:  Single  Stage  Untuned  Amplifier  Ci  rcui  t 

Consider  the  untuned,  bipolar  transistor  amplifier  of  Fig.  4-5.  The 
input  source  comprises  of  three  frequencies.  The  sequence  of  data  cards 
used  are  shown  in  Fig.  4-6  and  Fig.  4-7.  Note  that  the  second  card  in  the 
sequence,  referred  to  as  the  option  card  previously,  calls  for  the  pole- 
residue  information  (acronym  PR)  and  the  printing  and  plotting  of  the  com¬ 
plete  output  spectrum  (acronym  PC)  across  the  50-ohm  resistor  present 
between  node  6  and  the  ground  node  (card  no.  9).  By  not  including  AP  on  the 
option  card,  the  printing  of  the  responses  at  all  extracted  ports  was 
suppressed;  instead,  only  the  responses  across  the  50-ohm  resistor  and  the 
0.1  ohm  resistor  are  printed.  The  transistor  parameters  used  in  the  example 
are  listed  on  the  computer  print-out. 

Referring  to  the  computer  printed  output,  we  note  that  all  the  user- 
specified  information  has  been  listed.  A  description  of  the  augmented 
linear  network,  which  is  formed  after  the  linear  parts  of  the  nonlinear  ele¬ 
ments  have  been  lumped  with  the  existing  linear  network,  is  also  listed.  In 
the  present  examples,  six  ports  were  extracted  as  shown  by  the  port  assign¬ 
ment  description.  The  open-circuit  impedance  matrix  is  therefore  of  dimen¬ 
sion  6x6.  The  pole-residue  information  (see  eqn.  4-8)  for  each  of  the  en¬ 
tries  of  this  matrix  is  also  provided.  The  transfer  function  and  the  output 
voltage  values  for  the  arious  orders  and  frequency  combinations  have  also 
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been  Listed.  Finally/  the  output  spectrum  across  port  3  (node  pair  6-0)  has 
been  printed  and  plotted.  The  total  execution  time  for  this  example  on  the 
CDC  6500  computer  is  approximately  4.8  seconds. 
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TRANSFER  FUNCTION  OUTPUT  UOLTAGE 


SINUSOIDAL  STEADY-STATE  OUTPUT  RESPONSE  AT  PORT 
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TIME  FOR  FORMING  ZOCCSEC)  1.1530 

TIME  FOR  OBTAINING  OUTPUT  SPECTRUM(SEC)  3.6050 

TOTAL  EXECUTION  TIME (SEC)  4.7530 


Example  U-2_:  Two-Stage  Tuned  Amplifier  Circuit 

Consider  the  two-stage  tuned  amplifier  circuit  of  Fig.  4-8.  The  input 
source  comprises  of  two  frequencies: 

vg(t)  =  cos(2tt  3  x  106t)  +  cos (2it  3.25  x  106t> 

The  sequence  of  data  cards  used  are  shown  in  Fig.  4-9.  In  this  example  the 
frequency  sweep  capability  (FS  on  the  option  card)  offered  by  PRANC  was 
used. 

The  computer  printed  output  is  similar  to  that  for  Example  4-1.  The 
two  transistors  in  the  circuit  account  for  six  nonlinear  elements.  Alto¬ 
gether  nine  ports  were  extracted  for  the  Volterra  series  analysis,  two  of 
which  were  the  desired  output  ports. 

The  maximum  number  of  frequency  increments  specified  were  five.  Note 
that,  as  the  frequency  sweep  is  implemented,  the  set  of  input  frequencies 
are  printed  before  the  transfer  function  and  output  voltage  values.  Consid¬ 
ering  the  execution  times,  we  note  that  the  formation  of  the  9x9  open- 
circuit  matrix  took  approximately  4  seconds  on  the  CDC  6500  computer;  the 
calculation  and  the  printing  of  the  transfer  functions  and  output  voltage 
values  at  the  positive  frequency  values  (approximately  90  points*)  required 
approximately  18  seconds.  The  entire  program  execution  required  less  than 
22  seconds. 


*The  actual  number  of  points  is  approximately  150,  since  transfer  func¬ 
tions  at  negative  frequencies  are  required  in  the  calculations. 
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CHAPTER  5 


GUIDE  FOR  PRANC 


5-1 .  Introduction 

The  ideas  presented  in  Chapters  2  and  3  have  been  used  to  adapt  the 
Volterra  series  method  for  computer-aided  distortion  analysis  of  circuits 
with  polynomial  type  i  onlinear  elements.  PRANC  (Program  for  Analyzing 
Nonlinear  Circuits),  a  digital  computer  program  written  in  FORTRAN  IV,  is 
the  outcome  oc  this  effort.  This  chapter  presents  in  detail  the  program 
structure  and  the  description  of  the  subprograms  contained  in  PRANC.  This 
chapter  should  be  most  useful  for  programmers  wishing  to  modify  the  program. 

Section  5-2  presents  the  program  structure  of  PRANC.  By  pointing  out 
the  sequence  of  phases  that  are  involved  in  a  typical  analysis  run,  the  in¬ 
teraction  between  the  various  subprograms  is  depicted.  The  discussion  in 
this  section  provides  an  insight  into  how  the  "equivalencing"  of  arrays 
should  be  carried  out  for  conserving  storage. 

Section  4-3  presents  the  details  of  each  subprogram  contained  in  PRANC. 
These  details  include:  1)  brief  description;  2)  glossary  of  FORTRAN  vari¬ 
ables;  and  3)  listing  of  each  subprogram.  The  contents  of  this  section 
should  aid  the  programmer  in  making  future  modifications  to  the  program. 

PRANC  has  been  developed  on  the  CDC  6500/6600  computer  at  the  Purdue 
University  computing  facility,  and  as  such  certain  machine-  and  library- 
dependent  instructions  exist.  These  system  dependent  cards  in  the  program 
are  listed  in  section  5-4.  Cards  capable  of  calling  equivalent  functions 
can  be  substituted  in  their  place  for  adapting  the  program  on  a  different 
system. 
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5-2.  Program  Structure  of  PRANC 


Before  detailing  the  program  structure  of  PRANC,  it  is  instructive  to 
delineate  the  sequence  of  steps  that  are  involved  in  a  typical  analysis  run 
when  using  our  computational  algorithms.  The  program  structure  and  its 
modularity  are  better  understood  once  a  knowledge  of  the  sequence  of  steps 
has  been  acquired.  Referring  to  a  collection  of  steps  as  a  phase,  the  fol¬ 
lowing  is  a  partitioning  of  phases  that  are  involved  in  a  typical  analysis 
run : 

Phase  A:  The  following  functions  are  performed  during  this  phase: 

(a)  Read  input  data 

(b)  Control  the  interaction  between  the  other  phases. 

In  a  sense,  this  phase  can  be  regarded  to  extend  during  the  entire  analysis 
run. 

Phase  B:  The  user  desired  options  are  scanned  during  this  phase  and  the  flag 
variable  associated  with  each  option  is  appropriately  set. 

Phase  £:  This  phase  is  responsible  for  the  following  functions: 

(a)  Setting  up  of  the  arrays  for  the  network  description  in  a 

prescribed  manner. 

(b)  Assigning  addresses  based  on  the  user-specified  options  and  the 

nonlinear  element  topology. 

Phase  0_:  The  Hybrid  analysis,  which  yields  the  constraint  matrix  C20D,  is 
performed  during  this  phase. 

Phase  E:  The  state  space  representation  for  the  linearized  circuit  is  ob¬ 
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tained  during  this  phase. 


Phase  f:  The  eigenvalue-eigenvector  information  is  determined  from  the  state 
space  description  during  this  phase. 

Phase  G:  The  printing  and  the  formation  of  the  entries  of  the  open-circuit 
impedance  matrix  is  carried  out  during  this  phase. 

Phase  ]i:  The  first-,  second-,  and  third-order  transfer  functions  are  comput¬ 
ed  during  this  phase. 

Phase  I_:  The  following  functions  are  performed  during  this  phase: 

(a)  Compute  the  output  voltages  at  each  frequency  point  from  the 
transfer  function  values. 

lb)  Print  both  the  transfer  function  and  the  output  voltage  values  at 
each  discrete  frequency  point  for  the  requested  outputs. 

Phase  J_:  During  this  phase,  the  complete  output  spectrum  at  the  usei — 
requested  port  is  printed  and  plotted. 

Phase  K:  When  a  frequency  sweep  capability  is  requested,  this  phase  is  used 
to  perform  the  said  operation. 

Phase  L:  When  devices,  such  as  transistors,  diodes,  etc.,  are  to  be 
represented  by  equivalent  nonlinear  models,  this  phase  is  used  to  calculate 
the  parameters  of  the  nonlinearities. 

Several  subroutines  are  required  to  perform  the  functions  belonging  to 
each  of  the  aforementioned  phases.  PRANC,  in  its  present  version,  consists 
of  thirty-six  sub-programs,  whose  interaction  is  depicted  in  Fig.  5-1.  In 
order  to  provide  a  link  between  a  phase  and  its  associated  sub-programs,  the 
naming  of  the  subroutines  has  been  done  in  a  deterministic  manner:  the  first 
letter  of  the  subroutine  name  signifies  the  phase  to  which  it  belongs. 
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Thus,  for  example,  the  subroutines  H0RDR1,  H0RDR2,  H0RDR3  perform  the  func¬ 
tions  outlined  under  phase  H. 

In  the  following  paragraphs  the  function  of  each  subprogram  appearing 
in  Fig.  5-1  is  outlined: 

Program  AMAIN  is  the  executive  calling  program  of  PRANC. 

Subroutine  BOPTNS  deciphers  the  desired  user  options. 

Subroutine  CAGMNT  forms  the  augmented  linear  network  by  Lumping  the  linear 
parts  of  the  nonlinear  elements  with  the  existing  linear  network. 

Subroutine  CRDPRT  identifies  and  combines  the  parallel  energy  storage  ele¬ 
ments  and  current  sources  appearing  in  the  augmented  linear  network,  thus 
effectively  reducing  the  number  of  ports  extracted  for  hybrid  analysis. 

Subroutine  CSORT  sorts  the  elements  of  the  augmented  linear  network  and  ar¬ 
ranges  them  in  an  order  suitable  for  choosing  a  proper  tree  C20I. 

Subroutine  CXTPRT  adds  a  branch  to  the  linear  network. 

Subroutine  DFTREE  finds  the  proper  tree  from  the  incidence  matrix  C203. 

Subroutine  DHYBRD  is  the  executive  calling  program  for  performing  hybrid 
analysis  of  the  augmented  linear  circuit  to  obtain  the  constraint  matrix. 

Subroutine  DIAECH  is  used  to  manipulate  the  incidence  matrix  into  echelon 
form. 

Subroutine  DPRINT  prints  the  entire  constraint  matrix  whenever  the  debug  op¬ 
tion  is  requested  by  the  user. 
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Subroutine  DPRNT1  prints  only  part  of  the  constraint  matrix  describing  the 
port  equations  whenever  the  debug  option  is  requested  by  the  user. 

Subroutine  DRAECH  operates  on  the  rows  of  the  hybrid  matrix  to  reduce  it 
into  echelon  form. 

Subroutine  EST ATE  formulates  the  state  space  description  of  the  augmented 
linear  network  and,  if  desired  by  the  user,  prints  this  description. 

Subroutine  FBALNC  balances  the  matrix  whose  eigenvalues  are  to  be  detei — 
mined. 

Subroutine  FEVEV  is  the  executive  calling  program  used  to  determine  the 
eigenvalues  and  their  associated  eigenvectors. 

Subroutine  FBKXM1  is  used  to  back  transform  the  eigenvectors  of  an  Hessen- 
berg  matrix. 

Subrout ine  FBKXM2  is  used  to  back-transform  the  eigenvectors  of  a  balanced 
mat  r i x . 

Subroutine  FERTST  is  used  to  print  the  error  diagnosis  arising  in 
eigenvalues-ei genvectors  problems. 

Subroutine  FQRALG  determines  the  eigenvalues  and  the  eigenvectors  of  the 
Hessenberg  matrix. 

Subroutine  FRDHSS  reduces  a  matrix  to  the  Hessenberg  form. 

Subroutine  GZOC  forms  the  matrices  used  to  store  the  entries  of  the  open 


circuit  impedance  matrix. 


Subroutine  GZOCPR  prints  the  entries  of  the  open  circuit  impedance  matrix 


whenever  desired  by  the  user. 

Subroutine  HORDRl  computes  the  first-order  transfer  function  at  each  posi¬ 
tive  and  negative  input  frequency  value. 

Subroutine  H0RDR2  computes  the  second-order  transfer  function  at  each  fre¬ 
quency  combination  appearing  in  the  second-order  output  spectrum. 

Subroutine  H0RDR5  computes  the  third-order  transfer  function  at  each  non¬ 
negative  frequency  combination  appearing  in  the  third-order  output  spectrum. 

Subroutine  IURlST  determines  the  first-order  output  spectrum  and  prints  it 
along  with  the  first-order  transfer  function  at  the  user-specified  output 
ports. 

Subroutine  IMR2ND  determines  the  second-order  output  spectrum  for  non¬ 
negative  frequencies  and  prints  it  along  with  the  second-order  transfer 
function  values  at  the  user-specified  output  ports. 

Subroutine  IWR3RD  determines  the  third-order  output  spectrum  for  non¬ 
negative  frequencies  and  prints  it  along  with  the  third-order  transfer  func¬ 
tion  values  at  the  user-specified  output  ports. 

Subroutine  JSPCTM  performs  histogram  analysis  of  all  output  frequency  com¬ 
ponents  and  combines  the  common-ones.  It  also  prints  and  plots  the  complete 
output  spectrum  at  the  usei — requested  port,  whenever  desired. 

Subroutine  JPLTSP  perform  the  actual  plotting  of  the  output  spectrum. 
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Function  JLCOMP  Locates  the  data  points  for  plotting. 


Function  JPUT  also  locates  the  data  points  for  plotting. 

Subroutine  JSEP  separates  the  alphabets  in  the  y-axis  label  for  vertical 
printing. 

Subrout i ne  KFRNC  computes  the  frequency  increments  for  each  input  frequency 
whenever  the  frequency  sweep  capability  is  requested. 

Subroutine  KFRVLS  computes  the  new  frequency  values  during  the  frequency 
sweep. 

Subroutine  LTRANS  computes  the  coefficients  of  the  polynomials  representing 
the  nonlinear  elements  in  a  bipolar  transistor. 

5-3.  Glossary  and  Subprogram  listings  for  PRANC 

In  this  section  we  shall  present  the  specific  task  of  each  sub-program, 
along  with  its  listing.  The  glossary  of  important  FORTRAN  variable  names  is 
included  in  the  sub-program  listing. 

5-3.1  Program  AMA IN 

Program  AMAIN  is  the  executive  calling  program  of  PRANC.  Its  primary 
function  is  to  read  and  write  input  data,  to  form  appropriate  arrays  for  the 
augmented  linear  network  description,  and  to  assign  appropriate  addresses 
for  subsequent  use  in  forming  the  nonlinear  current  sources.  The  addressing 
array  NCONT  used  in  PRANC  deserves  some  explanation. 

Based  on  the  network  element  types,  and  their  associated  KEY  values, 
the  elements  of  the  augmented  linear  network  are  arranged  in  the  following 


r 


1.  Capacitors 

2.  VCVSs 

3.  CCVSs 

4.  Resistors 

5.  Inductors 

6.  VCCSs 

7.  CCCSs 

8.  Independent  current  sources 

Such  an  arrangement  is  warranted  for  the  selection  of  a  proper  tree  and  the 
formulation  of  hybrid  and  state  equations.  The  number  of  independent 
current  sources  is  equal  to  the  number  of  extracted  ports,  p,  for  the  aug¬ 
mented  linear  network. 

Initially,  as  each  input  information  card  is  read,  a  zero-valued 
current  source  is  applied  across  each  prescribed  input  source  branch,  output 
branch,  nonlinear  element  branch,  and  nonlinear  element  characteri st i c  con¬ 
trolling  branch  (in  the  dependent  nonlinear  element  case).  Each  zero-valued 
current  source  signifies  an  extracted  port.  Associated  with  each  extracted 
port  is  an  index  number,  NCONT,  starting  from  1  to  n  (n  >_  p)  .  Clearly  some 
of  the  initially  extracted  ports  may  be  in  parallel.  The  p-port  augmented 
linear  network  is  obtained  after  the  parallel  zero-valued  current  source 
branches  in  the  n-port  network  are  combined. 

The  extracted  ports  in  the  p-ports  network  has  the  following  arrange¬ 


ment  : 


Input  port 


NCONT(I) 


Output  port  1 
Output  port  2 


Output  port  k 

Nonlinear  element  #1  port 

Nonlinear  element  #1  controlling  port 

Nonlinear  element  31  controlling  port 

Nonlinear  element  32  port 

Nonlinear  element  32  controlling  port 

Nonlinear  element  32  controlling  port 


Nonlinear  element  3e.  port 
Nonlinear  element  3f  controlling  port 

Nonlinear  element  3?.  controlling  port  NCONT  (3  fc+k  +  1 ) 

The  array  NCONT  contains  the  port  number  for  each  of  the  above  extract¬ 
ed  ports.  Thus,  NCONT ( 1 >  contains  the  port  number  for  the  input  source 
port;  NCONT(?)  for  The  first  utput  port;  NCONT (3 )  for  the  second  out¬ 
put  port;  NCONT ( k  ♦  1)  tor  the  k-th  output  port;  and  so  on.  It  should  be 
noted  that  the  i ndependent  non! inear  elements  are  treated  as  special 
cases  of  dependent  non  I  inear  elements.  Thus,  if  NC0NTC5)  =  3  signifies 

I  kS 


NCONT (k+1 ) 
NCONT (k+2) 


NCONT (2) 
NCONT (3) 


port  number  3  for  a  nonlinear  capacitor,  then  the  locations  NC0NT(6) 
and  NC0NTC7)  will  also  contain  3-  In  the  case  of  a  dependent  nonlinear 
element,  the  number  for  the  controlling  ports  will  usually  be  dif¬ 
ferent.  It  should  be  clear  from  the  above  discussion  that,  for  a  sin¬ 
gle  input,  k-output  network  with  l  nonlinearities,  the  length  of  the 
array  used  is  (3fc+k+1).  The  array  NCONT  plays  an  important  role  when 
the  various  order  steady-state  responses  are  computed. 
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5-3.2.  PRANC  Listin- 


***»«*  »«***-***  *******  »*#*-:<*******■**  »*******■*•***•»»*»**  *#**»******»#*#AMri 

Ctta»«****a**»*««ff***a**aa*»»**  PRANC  *»#»**********»**#*»»#********#ftMN 
C*«*a»«»«»»««*»  PROGRAM  FOR  AMALV2IMG  NOMLINEAR  CIRCUITS  *******-»*»****#Am 
C-*  »•»**»•>•»*•»•»«•»•»  *«•*•»  **»«*  •»»»*>:***  «*»*»**  »**-:»»»»* 

C»«Ma5s»s95-5S5s5*s»5-i<s«3  SEPTEMBER  1973  VERSION  **»*»****»*»*»**#******AMN 


10 

20 

30 

40 

50 

BO 


C*“ 

»•»*»$* 

»«»** 

*  -x  -x  x  •»  *  -x  *t •»  x-  x  •»  x-  :j  » •> x  » .*<  x  x  x  -•  x  x-  x  x  x  a  x  •*  &»»:»«»»»»*»»#«  *»»*»*»*»*tti 

**AMN 

TO 

PROGRAM 

ftMAISK  INPUT >  OUTPUT .  TftFE5=IN?UT » 7ft?ES=OUTPUT  ) 

AMN 

80 

SO 

c 

•» 

*  AMN 

100 

c«» 

THIS 

SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTIONS: 

“AMN 

no 

c 

•* 

1.  READ  ft MO  WRITE  INPUT  CIRCUIT  DESCRIPTION. 

“AMN 

120 

c 

* 

2.  ft.CT  ftS  THE  EXECUTIVE  CALLING  PROGRAM  FOP  FRANC . 

“AMN 

130 

c 

* 

*  AMN 

140 

o* 

*»•*» 

THIS 

SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINES: 

“AMN 

150 

c 

■» 

1.  E0PTN3 

*AMN 

1  BO 

c 

■V* 

2 .  CftGHM  f,  CX7PR7,  CR3FRT .  CSGRT 

“ANN 

170 

c 

•» 

3.  DHYBRD 

*  AMN 

180 

c 

■!.  ESTATE 

*AMN 

J90 

c 

•> 

5.  FEVEU 

*  AMN 

200 

c 

V* 

g.  geo: 

*  AMN 

210 

c 

-> 

7'.  UORDRl,  KCRBR3.  HCRBR3 

<  AMN 

220 

c 

3.  I UR  1ST »  i(.'R2N0,  IURSRD 

«ANH 

230 

c 

*> 

S.  JSPCTil 

*AMN 

840 

c 

* 

in.  KFRINC.  KFRVLS 

*  AMU 

250 

c 

11.  LTRftNS 

*AMN 

250 

c 

/} 

12.****  SECCNO  «»**<LISRARY  DEPENDENT  ROUTINE) 

*ANN 

£70 

c 

« 

*AMN 

280 

c  *»-»*** 

THIS 

SUB-FROGRAM^S  GLOSSARY  OF  FORTRAN  NAMES: 

»AMN 

2S0 

c 

•:> 

ERHO  :  ERANCH  NUMBER  X  IN  THE  AUGMENTED  LINEAR 

*AMN 

300 

c 

•> 

iVr-,'1  '.-o-v' 

<AMN 

310 

c 

•> 

NFRCMCSO  :  -FRG7W  +  )  NODE  NUMBER  FOR  BRANCH  NUMBER  K 

*AMN 

320 

c 

•:* 

rrrnuo  :  -to-c -)  node  number  fcr  branch  number  k 

“AMN 

330 

c 

TYPE  HO  :  BRANCH  NUMBER  X  ELEMENT  TYPE 

“AMN 

340 

o 

ICON" C.'O  :  CONTROLLING  BRANCH  NUMBER  FOP  BRANCH  X 

“AMN 

350 

c 

•> 

•/.zv'io  :  !c-:v  ijauj"  ;-~c?  ssamcu  :< 

*  ft  MM 

3G0 

c 

•:i 

VALUE. :<)  :  ELEMENT  VALUE  FOR  BRANCH  .'< 

“AMN 

370 

c 

HTYTEIX)  :  T'.’PE  OF  NONLINEAR  ELEMENT  X 

“AMN 

330 

c 

■:* 

COFFMOJ)  :  POLYNOMIAL  COEFFICIENT  VALUE  FCR  NONLINEAR 

“AMN 

390 

c 

r< 

ELEMENT  X 

“AMN 

400 

c 

■:> 

"RECK  I )  :  I -Ml  INPUT  FREQUENCY  VALUE 

“AMN 

410 

c 

a::?; I)  :  i-v::  input  frequency  amplitude 

“AMN 

420 

r 

PHASE C I )  :  V-TH  INPUT  FREQUENCY  PHASE 

“AMN 

430 

c 

> 

LUMIT  :  I MP’J i  FREOUiNCY  UNIT  CHE  OR  RAD/SEC) 

“  AMN 

440 

c 

A  :  INCIDENCE  MATRIX  FCP  THE  AUGMENTED  LINEAR 

“AMN 

450 

r 

:> 

i  !£Y1!CT.< 

*  AMN 

450 

c 

:* 

AMS  :  CONSTRAINT  c HYBRID)  MATRIX 

“AMN 

470 

r 

•» 

HEARER  :  HEADING  VECTOR  FOR  THE  CONSTRAINT  MATRIX 

“AMN 

430 

c 

-r> 

EHT.M  :  UCRX  MATRIX  USED  IN  HYBRID  ANALYSIS 

“AMN 

4S0 

c 

■:t 

EMITS  :  UCRX  MATRIX  USED  IN  HYBRID  ANALYSIS 

“AMN 

500 

c 

a 

AN, AT  :  MATRIX  A  GF  THE  STATE  SPACE  REPRESENTATION 

^  hMI  ! 

510 

c 

IIMAT  :  MATRIX  3  GF  THE  STATE  SPACE  REPRESENTATION 

*ftf  tM 

520 

£ 

* 

CHAT  :  MATRIX  C  GF  THE  ST.  i  .  E  SPACE  REPRESENTATION 

*  ft  Mr  \ 

530 

c 

* 

r  »  I  *,ft7  P ft  0  F  i!!Z  STft.Z  ZftftCc.  Z Zr'Zc-SZi  ITftT  IOM 

“AMN 

540 

c 

•it 

"tVLSCI)  :  T-TH  COMPLEX  EIGENVALUE  i NATURAL  FREQUENCY) 

“AMN 

550 

c 

EV-'CTo  :  MODAL  MATRIX  FCR  SIMILAR 1 7 Y  TRANSFORMATION 

“  AMN 

5B0 

t; 

it 

r.Hft.'  :  MT.TR/X  OBTAINED  FROM  THE  PRODUCT  OF  NODAL 

“  AMN 

570 

c 

* 

MATRIX  ":"TR?E  AND  BMAT 

“ANN 

580 

590 

c 

CHAT  ‘  MAiR-.X  OD-.u.'.'iD  FROM  i HE  PRODUCT  OF  CMAT  AND 

“AMD 

> 

MODAL  MATRIX 

“AMN 

GOO 
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c 

* 

WK1.WK2 

WORK  ARRAYS 

*  AMN 

G10 

c 

* 

NSTPS(I) 

I- TH  INPUT  FREQUENCY  NUMBER  OF  INCREMENTS 

*AHN 

S20 

c 

* 

FRINC(I) 

I-TH  INPUT  FREQUENCY  INCREMENT  UALUE 

*nM,l 

G30 

c 

* 

HFR(I) 

I-TH  INPUT  FREQUENCY  HIGHEST  UALUE 

»ANN 

E40 

c 

* 

Yl(P.I) 

PORT  P  FIRST -ORDER  OUTPUT  AT  FREQ(I) 

*  AN!  1 

G50 

c 

* 

W2(  I ) 

SECOND-ORDER  I-TH  FREQUENCY  COMPONENT  UALUE 

*ANN 

GGO 

c 

* 

Y2(P, I ) 

PORT  P  SECOND-ORDER  OUTPUT  AT  W2(I) 

»AMN 

G70 

c 

* 

FC2(  I ) 

COMBINATION  CODE  FOR  W2(I) 

*ANU 

G30 

c 

* 

1)3(1) 

THIRD-ORDER  I-TH  FREQUENCY  COMPONENT  UALUE 

*ANN 

GSO 

c 

* 

Y3( P, I ) 

PORT  P  THIRD-ORDER  OUTPUT  AT  W3(I) 

*-ANN 

700 

c 

* 

FC3( I ) 

FREQUENCY  COMBINATION  CODE  FOR  U3( I ) 

«AMN 

710 

c 

* 

FR(  I ) 

I-TH  FREQUENCY  UALUE  IN  THE  COMPLETE  SPECTRUM* AMN 

720 

c 

* 

Y(  I ) 

OUTPUT  UOLTAGE  AT  FR(I) 

<-AMN 

720 

c 

* 

IPT 

ARRAY  USED  FOR  -HISTOGRAM-  ANALYSIS 

*AMN 

740 

c 

* 

YLG 

LOG  OF  THE  OUTPUT  (Y).  USED  FOR  PLOTTING 

»ANN 

750 

c 

* 

ST1.ST2 

DUMMY  STORAGE  ARRAYS  USED  FOR  EQUIUALENCING 

*ANN 

7  GO 

c 

* 

NCONT 

ARRAY  FOR  ADDRESSING  NONLINEAR  CURRENT 

«ANN 

770 

c 

* 

SOURCES  AND  REQUESTED  OUTPUT  PORTS  (5EE 

*ANN 

7E0 

c 

* 

TECHNICAL  REPORT  FOR  DETAILS) 

*  ANN 

7S0 

c 

* 

JCONT ( K ) 

SECOND  CONTROLLING  BRANCH  NUMBER  FOR  NONLINE 

fi*ANN 

£00 

c 

* 

ELEMENT  !V  SUBSEQUENTLY  IDENTIFIES  THE 

*  AMN 

E10 

c 

* 

NONLINEAR  ELEMENT  TYPE 

*ANN 

E20 

c 

* 

TITLE 

ARRAY  USED  FOR  READING  TITLE  AND  OPTION  CARD 

<  ANN 

E20 

c 

* 

NCAP 

NUMBER  OF  LINEAR  CAPACITORS 

efittN 

54  0 

c 

* 

NDUS 

NUMBER  OF  LINEAR  DEPENDENT  UOLTAGE  SOURCES 

*ANN 

E50 

c 

* 

NRES 

NUMBER  OF  LINEAR  RESISTORS 

<ANN 

ESO 

c 

* 

NIND 

NUMBER  OF  LINEAR  INDUCTORS 

*an:i 

870 

c 

* 

NDCS 

NUM3ER  OF  LINEAR  DEPENDENT  CURRENT  SOURCES 

*  ANN 

E30 

c 

* 

MCS 

•  NUMBER  OF  LINEAR  CURRENT  S0URCE5(=-»  OF  PORTS 

)*ANN 

ESO 

c 

* 

*  A.t'ii  1 

E00 

C***-IHC 

******* 

»******»**»: 

**AMN 

S10 

c 

ANN 

S20 

c 

ANN 

S30 

INTEGER 

A, ER. TYPE, AMSCOL. FROM, TO, HEADER, OUTPT 

ANN 

S40 

INTEGER 

R.G.C.E.CU 

UU.CC.UC, TITLE 

ANN 

ESO 

INTEGER 

DB, SE, FS, PR, PC, AP 

ANN 

SSO 

COMPLEX 

TH 

ANN 

S70 

r 

ANN 

SSO 

c***«* 

ARRAYS 

REQUIRED  FOR  STORING  AUGMENTED  LINEAR  NETWORK 

PiXi ! 

SSO 

c 

1000 

DIMENSION  ER( 75 ) ,  NFR0N(75).  N70(75),  TYRE (75),  IC0NTC75),  KEY(75)ANi! 

1010 

c 

ANN 

1020 

£****« 

ARRAY  FOR  ELEMENT 

UALUES 

ANN 

1030 

c 

ANN 

1040 

DIMENSION  UALUE ( 75) 

1050 

c 

ANN 

10  SO 

£**»*« 

ARRAYS 

FOR  NONLINEAR  ELEMENT  TYPE  AND  POLYNOMIAL  COEFFICIENTS 

AN! ! 

1070 

c 

ANN 

ICSO 

COMMON  '00  U  NTYPEC 10 ) , COFFC 10,9) 

ANN 

10S0 

c 

ANN 

1100 

INPUT  AMPLITUDE  AND  FREQUENCY  ARRAYS 

ANN 

i ;  i  o 

c 

an:  i 

i ;  eo 

COMMON  /003^  FREOC 10 ) , AMP( 10),TH(10). LUMIT 

ANN 

1 3  20 

DIMENSION  PHASE (5) 

ANN 

1  140 

c 

ANN 

1 150 

ARRAYS 

FOR  HYBRID 

ANALYSIS 

ANN 

i  i£n 

c 

ANN 

i  170 

DIMENSION  AC30.75),  Hi  15 ( 75,  150 ) .  HEADER(3C0),  EXTR1 ( 75, 30 ) ,  EXTR2(AMH  j  !  Ln 
175,30)  i i  nco 

ann  ! soo 
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ARRAYS  FOR  THE  FORMAT I OH  OF  STATE  EQUATIONS  ANN 

C  ANN 

DIMENSION  AMA7(20,20),  BMA7(20,20),  CMAT(25,20),  DMAT(25,25)  ANN 

C  ANN 

0 •»**«•*  EIGENVALUE  AND  EIGENVECTOR  ARRAYS  ANN 

C  ANN 

COMPLEX  EUALSC20 ) , EUECTS(20. 20 )  ANN 

C  ANN 

ARRAYS  FOR  STORING  PFE  INFO  AND  WORK  ARRAYS  ANN 

C  ANN 


COMPLEX  CHAT  ( 20 . 23 ) ,  CHAT  ( 25, 20 ) ,  W:<  1  ( 20 , 20 ) ,  WK2<  20 , 20 ) 
C 

ARRAYS  FOR  FREQUENCY  SWEEP 
C 

COMMON  /OO'V  M3TP3C5) , FRINC(S) > HFR(S) 

C 

ARRAYS  FOR  FIRST-ORDER  TRANSFER  FUNCTIONS 
C 

COMPLEX  VI (25, 10) 

C 

ARRAYS  FOR  SECOND-ORDER  TRANSFER  FUNCTIONS 
C 

COMPLEX  Y2 (25., S3), UXZ ( 25, 25 ) 

DIN, ENSIGN  U2C53) 

INTEGER  FC2(53) 

C 

ARRAYS  FOR  TNIRD-CRDER  TRANSFER  FUNCTIONS 
C 

COMPLEX  Y3(23, 120) 

DINEN3I0N  1  .'3(130 
INTEGER  F C3(  130  ) 

C 

ARRAYS  FOR  COMPLETE  OUTPUT  SPECTRUM 
C 


COMPLEX  Y(1G0) 

DIMENSION  FR( ISO),  IPT(iSO).  YLG(ISO) 

C 

MISCELLANEOUS  WORK  ARRAYS 
C 

DIMENSION  STK75, 100),  ST2C50,225),  NLBNC32),  TITLE(SO), 
COMMON  /01G/  NCONT ( 22 ) , JCONT (10) 

C 

COMMON  /Z7YPZ''  R,  G,  L,  C,  E,  IS,  CU,  UU,  CC,  UC 
COMMON  /ENQS^  MCA?, NDU3, NRES, NIMD, NDCS, NCS 
C 

EOUIUALENCE  FOR  PHASE  1  (03TAIN  HYBRID  MATRIX) 

C 


EOUIUALENCE 

EOUIUALENCE 

EQUIVALENCE 

EQUIVALENCE 

EOUIUALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EOUIUALENCE 

EOUIUALENCE 

EQUIVALENCE 

EOUIUALENCE 

EOUIUALENCE 


(STIC!), TITLE( 1 ) ) 

(ST1 (1 ) , CR( 1 ) ) 

( ST  1  (  r'S  ) ,  N'FROM(  1 )  ) 
(371(151  ), 1170(1)) 

(ST1 ( 223) , TYPE( 1 ) ) 

(ST  .1(301),  ICONT(l)) 

( ST  1  ( 3/3 ) ,  VALU--  ( 1 )  ) 
(ST1  (M3 1 ) , XEY(  1 )  ) 

(ST 1 (S23 ) , EXTR1 ( t ) ) 
c  ST 1 C  2773 ) ,  EXTR2  ( .1 ) ) 

C 371(5023), A( 1 1 ) 

( ST 1 ( 7273 i , HEADER (1 ) ) 
(S72( 1 J, AN3( 1 ) ) 


ANN 

AMN 

ANN 

AMN 

AMN 

AMN 

AMN 

AMN 

ANN 

AMN 

AMN 

AMN 

ANN 

AMN 

AMN 

ANN 

AMN 

AMN 

AMN 

ANN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

NP0RT(25)AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMN 

AMM 

AMN 

AMN 

AMN 

ANN 

AMN 

AMN 

AMN 

AMN 

AMN 


1210 

1220 

1230 

1240 

1250 

lcSO 

1270 

12S0 

ieso 

1300 
1310 
1220 
1330 
1340 
1350 
13G0 
1370 
1280 
13S0 
1400 
1410 
1420 
1430 
1440 
1450 
14E0 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
15S0 
1570 
1530 
1590 
1G00 
1G1 0 
!  S20 
1G30 
1G40 
1G50 
16G0 
1G70 
1E30 
1G90 
1700 
1710 
1720 
1730 
1740 
1750 
17  GO 
1770 
1780 
1730 
1800 


’ 
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no  nnnno  non  non  non  non 


r 


KEY(K)=3 

AMN 

2010 

HDCS=NDCS+1 

A.M.N 

2020 

GO  TO  110 

ANN 

2020 

C 

AMN 

2040 

0  c  u  s 

AMI) 

2050 

c 

ANN 

2CE0 

104  KEY(K)=3 

f  M 

2070 

NDUS=NDUS+1 

ANN 

2030 

GO  TO  110 

ANN 

2020 

C 

ANN 

2100 

ecus 

ANN 

3110 

c 

f- 

2120 

10S  KEY  00=4 

2120 

ISDUS=NDUS+1 

PVNI 

3140 

GO  TO  110 

ANN 

2150 

C 

AN.N 

31  SO 

c**»*»  u  c  c  s 

ANN 

2170 

c 

ANN 

3  ISO 

103  KEY  00=7 

ANN 

2  ISO 

NDCS=NDCS+1 

ANN 

2200 

C 

ANN 

22.10 

WRITE  DEPENDENT  SOURCE  BRANCH  INFORMATION 

ANN 

2220 

C 

ANN 

2220 

110  WRITE  (6,223)  BR (IO » NFROMIK ) * NTO ( K  ) , TYPE ( K) » UALUE ( K ) > I CONT ( K ) 

ANN 

2240 

GO  TO  iao 

ANN 

2250 

C 

ANN 

2230 

C*«*»*  RESISTIUE  BRANCH 

ANN 

2270 

C 

ANN 

2230 

112  KEY  (10=5 

ANN 

^  ioj 

MRES=NRES+1 

ANN 

2200 

GO  TO  113 

ANN 

2310 

C 

r-  i 

1  >.  li  t 

2220 

C****»  CAFACITIUE  ERANCH 

ANN 

2220 

C 

ANN 

2240 

114  NCAP=NCAP+1 

a;  :n 

2  230 

KEY  00=2 

ANN 

22  30 

GO  TO  118 

ANN 

2270 

C 

ANN 

2230 

C*»***  INDUCTIUE  ERANCH 

ANN 

2230 

C 

ANN 

2400 

118  MIND=NIND+1 

ANN 

2410 

KEYOO=G 

ANN 

2420 

C 

ANN 

2420 

C*»***  WRITE  R » L » C  BRANCH  INFORMATION 

ANN 

2440 

C 

ANN 

2450 

113  WRITE  (G» 230 )  BROO , NFROMOO , NTOCK) , TYPE(K ) . UALUE(K) 

ANN 

24  SO 

120  CONTINUE 

ANN 

2470 

C 

ANN 

2430 

C**»«*READ  NONLINEAR  ELEMENT  INFORMATION 

ANN 

2430 

C 

ANN 

250  0 

KK=0 

ANN 

2510 

DO  123  K=1,NNELEM 

ANN 

2520 

KK=KI<+1 

ANN 

2320 

C 

ANN 

2  240 

C**»**  READ  NONLINEAR  ELEMENT  TOPOLOGY 

ANN 

2350 

C 

ANN 

2230 

READ  (5,222i  NEG, N1 , N2. NT, ICT, JCT 

ANN 

2570 

IF  (MT.E0.2HTR)  GO  TO  123 

ANN 

2230 

C 

1  ii  ill 

2220 

C**»«*  READ  POLYNOMIAL  COEFFICIENTS  FOR  THE  NONLINEARITY 

ANN 

23.i0 

156 


nnn  nnn 


r 

ANN 

3310 

12  (nT.2n.M3i  no  to  122 

AMN 

EE  30 

,:-:m  o-pz-p  cccffcck. t),  1=1. 3) 

ANN 

2330 

rn  to  124 

AMN 

2340 

: 

P 2iV4  C 3 - 22 31  C CC22 ( KX ,11.5  =  1.9) 

ANN 

2350 

124 

AMN 

2SG0 

22;  MM  1  =  M  IT 

ANN 

2S70 

;;.r22:"i  31  :;i 

ANN 

3C80 

n.octeoi  ;;■? 

ANN 

3GS0 

typecm-c-tit 

ANN 

2  EDO 

icomtutefc.-ict 

ANN 

"FI  0 

.'convcco  -32  r 

ANN 

2320 

00  TO  120 

ANN 

2F20 

123 

CALL  LTPAN3  (NEC.  Ml . MOOD,  KX,  NLEN.ER.NFROM.  NTO.  TYPE.  ICONT.UALUE. 

NN0ANN 

2F40 

l  iV, \ 

ANN 

3F50 

1 23 

"conVi;"-: 

ANN 

23G0 

nneletcxx 

ANN 

2FF0 

C 

ANN 

3FS0 

:t  CP7TE  NONLINEAR  ELEMENT  INFORMATION 

ANN 

3320 

c 

ANN 

3000 

!  IP7TE  (S.233' 

ANN 

2S 1 0 

IIP  TV-1  (0-254) 

ANN 

2820 

DO  T22  1  -1  >  M.'IELEM 

ANN 

2S3P 

I  I-TTLETIC  .t ) 

ANN 

3S40 

13  (YYFEcrp.EO.ND)  00  TO  130 

ANN 

3S50 

1  IP  1 T2  >.  0 , 2  33 1  TSFPCN  (il),i  ITO  C  N ) ,  TYPE  CM),  COFF  C 1 ,  1 1 » COFF  (1.2).  COFF  ( ANN 

2SG0 

1  :  -  3 1 

ANN 

2330 

no  rn  122 

.  NN 

2830 

12) 

1  IP!  T  -I  ( 3-  332 1  NFROM  CM),  NTO  (N),  TYPE  CN) .  ICONT(N).  JCOMT  (I) .  COFF 

( I . ANN 

2830 

1  .1 ' •  COFF  v  1  •  rl  1 . COFF (1*3) 

ANN 

3300 

CPU'-:  C 3* EE' 3 1  CCFF (1,4). COFF ( t » 5 )  •  COFF ( I .  S) 

ANN 

2?!0 

CRETE  (o,E30)  COFF ( I ,  i’  1 .  COFF  (  X  >  3 1 .  COFF  i  1.9) 

ANN 

FS20 

123 

C  ON'"  MUZ 

ANN 

3330 

C 

ANN 

2540 

C  *■"■«* 

"■PECO  AND  CPI VI  GENERATOR  INFORMATION 

ANN 

3350 

c 

ANN 

ESSO 

READ  (5-233)  Ml . M2- NT. 23 

ANN 

3930 

IF  ( (MT. 20. R). OP. (NT. 20. G)>  GO  TO  134 

ANN 

3330 

IF  (MT.En.C)  GO  TO  133 

ANN 

3990 

COLL  CNVPP .'  ( COD;; .  DP,  TYPE.  UALUE, NFROM. NTO, KEY,  N1  .N2.3.NT.ZS) 

ANN 

4000 

CIM3--NIND-:-l 

ANTI 

4010 

MET  41 

AMN 

4020 

CO  TO  123 

ANN 

4030 

134 

ClYJ.  CM  iTPT  C  MODI).  CP,  TYPE.  OOLUE.  Nr  ROM,  NTO.  KEY.  N1 ,  N3,  5,  NT.  ZS) 

ANN 

4040 

MPEG  -  MF25  M 

ANN 

4050 

netm 

ANN 

40G0 

GO  TO  12" 

AMN 

4030 

.123 

COLL  CTYFPT  ( MADE. DP, TYPE . UALUE. NFROM, NTO. KEY. N1 . N2. 2. NT, 25) 

ANN 

40S0 

MCAP-4ICA?  :-l 

ANN 

4030 

MEY;:2 

ANN 

4100 

133 

COLL  CI4VPPT  ( MODD.  CP.  TYPE,  UOLUE.  Nr  ROM,  NTO,  KEY.  N1  .N2. 9. 15.0.00) 

ANN 

4)10 

1  !<  ]L'.j  •*  ’ 

ANN 

4 !  20 

nco;  IT  c  t  •  =1 

ANN 

4130 

i'O  MO  *  - 1 .  NFEEO 

ANN 

4140 

140 

p  Eivo  c  o .  330 1  amp <  i ' .  phase c  i  ) .  fpeo C I ) ,  HF P ( I )  •  NSTPS ( I ) 

ANN 

4150 

!  TRITE  (3.240) 

ANN 

•11  GO 

i gy-eto)  ni.pp.es.mt 

ANN 

4130 

CPI  YE  U-'.-P’M)  LLP!  XT' 

ANN 

4180 

no  M2  7  -l-MFPEO 

ANN 

4 1  30 

142 

CP  IT-:  13-243)  I .  FPEfK  7  1 ,  ANP(  1 1 .  PHASE  ( I ) 

ATTN 

4200 

157 


nnn 


IF  (FS.NE.l)  GO  TO  14S 
MXIHC=0 

DO  144  I=1»NFREQ 
144  MXINC=MAX0(MXINC,NSTP3( I) ) 

WRITE  (6,203)  INTYP.MXINC 
146  IF  (MX.NE.l)  GO  TO  154 

C 

c***#*  READ  AND  WRITE  SECOND-GENERATOR  INFORMATION 
C 

NFRE0=MFRE0+1 

READ  (5.248)  Ml , N2, NT, 2S1. AMP(NFREQ) , FREQ(NFREQ) . PHASE (NFREQ) 
IF  ( (NT.EO.R) .OR. (NT.EQ.G) )  GO  TO  143 
IF  (NT. £0.0  GO  TO  150 

CALL  CXTFRT  (NADD, BR, TYPE. UALUE, NFROM, NTO, KEY. N1 . N2, S. NT, ZS1 ) 
NIND=NIND+1 
NET  1=3 
GO  TO  152 

148  CALL  CXTPRT  (NADD. BR. TYPE, UALUE, NFROM, NTO, KEY, N1 , N2, 5, NT, 2S1 ) 
NRES=MRES+1 
NET  1  =  1 
GO  TO  152 

150  CALL  CXTPRT  (NADD, BR. TYPE. UALUE. NFROM, NTO, KEY, Nl, N2, 2, NT, ZS1 ) 
NCAP=NCAP-M 
NET  1=2 

152  CALL  CXTPRT  ( NADD, BR, TYPE, UALUE, NFROM, NTO, KEY, Ml , N2, 35.  IS. 0 . 0 ) 
NCS=NCS-H 

WRITE  (6,242)  N1.N2.ZS1.NT 
WRITE  (6,244)  LUNIT 

WRITE  (G.24S)  NFREO, FREQ (NFREQ) , AM? (NFREO) , PHASE (Mr REQ) 

C 

C*****FORN  THE  APPROPRIATE  AUGMENTED  LINEAR  NETWORK 
C 

154  NCT=NOUT 

DO  15S  K= 1 , NNELEM 
N=NLEN(I<) 

ICON=ICONT(N) 

JLON=JCONT  (!<) 

NNODE=MAXO ( NNODE, NPROM (N) . NTO (N) ) 

l(EYU=KEYU+l 

NCT=NCT+1 

CALL  CAGNNT  (K,  N.  KEYU, NADD.  ICON, JCON, NCT, ER, NFROM, NTO, TYPE, 
1  T, UALUE, KEY) 

155  CONTINUE 

IF  (MX.NE.l)  GO  TO  153 

L0SRC=NCT+1 

NCOMT ( LOSRC ) =LOSRC 

153  NELEM=NADD 
C 

SORT  ELEMENT  DATA 
C 

NICS=MCS 

CALL  CSORT  (NELEM, BR, NFROM, NTO, TYPE, ICONT, UALUE, KEY) 


»***»  COMBINE  PORTS  WHICH  APPEAR  ACP05S  SAME  NODE  PAIR 

CALL  CRDPRT  (NELEM. BR, NFROM, NTO, KEY, TYPE, UALUE, ICONT) 

C 

COMSECUTIUELY  NUMBER  THE  EXTRACTED  -INDEPENDENT-  PORTS 
C 

DO  1GS  1=1 , HICS 


AMM 

f.  YS1 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

ANN 

AMN 

ANN 

ANN 

£■  VS' 

ANN 

ANN 

ANN 

ANN 

a;  lit 

ANN 

p.f/M 

ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ICON ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 
ANN 

an:  i 

ANN 

ANN 

ANN 

an:  : 

ANN 
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IF  (NCONT(I).Ea.I)  GO  TO  1S3 


130  IF  (IICOriTUl.GT.I)  CO  TO  132 

iF  CJ.EQ.NICS)  GO  TO  1GS 
J-J  *i 
GO  TO  ISO 

132  PO  .'SI  K-J.NICS 

134  IF  (NCGNT(X).EG.J)  MCOMTCO=I 

133  CCNTIN’JZ 

C 

RENUMBER  T! CONTROLLING  FOOTS  FOR  THE  NONLINEAR  ELEMENTS 

c*««*«  r,; ;o  assign  numerical  identifier.' jcontc  ))  with  each  nonlinear 
ELEMENT  type 
c 

no  iso  k=i,ntcs 
133  nlenixi-ncgntcx) 


J3-N0U7 

do  .130  !C".i»;:melem 

X 1  -:X  1  i 

NE-Jl+i 

JS-J’-M 

IF  (FTVPECO.EQ.MR)  GO  TO  174 

IF  (NTYPEC O.EG.NC)  GO  TO  170 

IF  CFTYPECX)  .EQ.f'.Ll  GO  TO  172 

IF  (i'.TVPECK)  . EQ.MD)  GO  TO  173 

170  JCONT  (X  )-=! 

GO  i 0  1 73 

172  ECGNTIX  )=:2 
GO  TO  17'3 

174  0C0MT(K)=4 

173  MC.DL'H-MLEflCKl ) 

NCGNT(  JD-MCnUM 
MCOflT  ( J2)=NCDL!‘I 
MCOi  :T  C  J3 )  -'NCBUi ! 

GO  TO  ISO 

173  IICONTCJI )-MLDM(Xl > 

NCO::7(J2^4!LBri(Xi*l) 

XI -XI +3 

:cc:iTU3i"rn.EN(:a) 

JCCNT(X)”3 
iso  CONTI ;:l'E 

if  cmk.me. i >  go  to  13? 

LGERC-  NC'JT+NNILEH  '-NNZLEM+NNELEM+1 
NCO;  IT  ( LOESS  1  -MLB?!  (  ill  CS ) 

132  N3VU  TlCftP+illl'D 
NCR-  NILE!  1 
C 

C**»»«?RIHT  AUGMENTED  LINEAR  NETWORK  DESCRIPTION 
C 

FRIT"  (G,ES-i) 
write  ;o: 

: :f? t t e  (3..-;?2'> 

ro  •  ;*,•)  ::na 

134  l KITE  (6.i23S)  DRCO  ■  NFROMNO  .NTOCO .  TYPEOO . UALUE(K).  ICONTOO 
r 

I>3»8  IK  TV"  ZKTPACTZD  PORT  INFCRMTION 
C 


AMN  4S1 0 
fiMN  4320 
ANN  4330 
fiMN  4E40 
P.MN  4850 
P.MN  4SG0 
P.NN  4870 
FINN  4880 
fiMN  4830 
AMN  4800 
FINN  4810 
ANN  4820 
P.MN  4830 
fiMN  4840 
P.MN  4850 
FINN  4830 
ftKN  4870 
P.MN  4830 
fiMN  4830 
fiMN  5000 
fiMN  5010 
fiMN  5020 
P.MN  5030 
fiMN  5040 
fiMN  5050 
fiMN  5CG0 
fiMN  5070 
fiMN  5080 
fiMN  5090 
fiMN  5J  00 
fiMN  5110 
fiMN  5120 
fiMN  5130 
AMN  5140 
P.MN  5150 
AMN  5130 
P.MN  5170 
fiMN  5180 
F;MN  5130 
fiMN  5200 
AMN  5210 
AMN  5220 
P.MN  5230 
P.MN  5240 
fiMN  5250 
fiMN  5230 
fiMN  5270 
AMN  5230 
P.MN  5280 
P.MN  5300 
fiMN  5310 
P.MM  5220 
fiMN  5330 
ANN  5340 
fiMN  5350 
P.MN  5330 
fiMN  5370 
P.MN  5330 
P.MN  57S0 
ANN  5400 


159 


n  n  n  o  o  n 


213  FORMAT  (//,  1X«  15HLINEAR  ELEMENTS)  A! 

220  FORMAT  ( i!!0,  GHBRAN0H,  4X.  4MF RDM* 3X,  2HT0, 5X, 7HELEMENT, 3X. 7HELEMENT, ST.' 
IX,  7I-1C0N7R0L,  /,  IX,  GHNUM2ER,  4X,  4HM0DE,  2X,  4MM0DE,  5X,  4HTYPE,  3X.  SrlOfiLL'EFT 
2,  4X,  GHBRANCU) 

222  FORMAT  (1H  ,G(1H.  ),4X,4(  1H.  ),2X.4(  1H.  1,4.x,  7(  1M. ) ,  3X.  7(  1H.  1 . 3X,  7(  IMF 

i  .  )  )  c: 

224  FORMhT  (212,11,203)  A 

( 2 1 3 , A2  *  E 1 0 , 3 , I3»I1»A1)  A 

CSX,  13, GX,  I3,2.X.  13, 7X, 02, 4X, El 0.3, 3X,  13) 

(2.X*  I3.S.X,  13, 3X,  13,  7X, A2, 4X, E10 . 3)  7 


22S  FORMAT 
223  FORMAT 
230  FORMAT 
232  FORMAT 
234  FORMAT 


(213, A2, 213) 
(2E10.3) 


FORMAT  (EE l.0. 3, /.El 0.3) 


233  FORMAT  ( 21 3, A2, ,E10. 3)  r, 

240  FORMAT  ( ■"  .  IX,  '  Sl-ISO'JRCE  INFORMATION:  )  ('. 

242  FORMAT  ( 1H0, 41IFR0M .  2X,  13,  2X,  21-ITO, 2X,  1.3, 5X>  SHIMPEDAN3E,  2X,  E10 .3,  3X.  f 

1A2)  (; 

244  FORMAT  ( )  I  !0 ,  EKFREOUENCY*  5X.  SKUALUE  ( .  A3>  1H ) ,  9.X,  3.XAMPL  I  TUBE .  4.X,  1  OK?:  V. 

1 AEE  (  DEG  / ,  /  II !  ,3  !  H.  ) .  5M»  1 0  (  1H.  ) ,  OX,  3(1M.  ) ,  4X,  10  ( 1M.  ) )  f. 

245  FORMAT  C  ill  •MX,  7  :  , 3X,  E 1 0 . 3, OX,  E 10 . 3, 2X, El 0 . 3)  i. 

243  FORMAT  ( 213 . A; , 4E10. 3 )  A 

250  FORMAT  (4E10.2.J2)  <■ 

252  FORMAT  (//.-,  (M,  iSMMONLINEAR  ELEMENTS)  f:. 

254  FORMAT  ( 1H0, 2X.,  41-ir  ROM,  5X»  2H7D, SX, 4HTYPE, 4X*  7MC0N7R0L,  5X,  22XP0LYNCM,-. 

1J.AL  COEFFICIENTS, /l M  ,  2X. 4HM3DE ,  4X>  4MN03E.  1 IX,  3FI(  1 ) , 5X»  314C 2 ) ,  -'ll I  .  T.: 
2HX,  4(  1M.  ).4X,4(  111.  ),3X,4(  HI. ) ,  2X,  1 1  ( 1H.  ) ,  3X,  23(  1H.  ) )  C. 

25G  FORMAT  ( 1K0, EM,  12,  GX.  12,  7.X,  A 2,  1S.X,  3MA1“,E12. 4,3.X,3;-!A2=,E12.4,  3X,  EXT, 
1.T2-.E12.4) 

253  FORMAT  (HI  . 23X. 4HA02=, E12.4, 2X, 4MA1 1=. E12.4, 2X, 4MA30=, E12.4 >  E. 
260  FORMAT  (111  ,  23X, 4HA03=> 112.4, 2X,  4MA21  =  ,  E12. 4, 2X,  4MA  1E=,  E 12. 4  )  f. 

252  FORMAT  ( 11-10,  3X,  12,  GX,  12,  7X,  A2,  3.X,  12,  3X,  12,  3X,  41-!A1G  =  ,  E12. 4. 2X,  4HA01,. 

1=,  E 12. 4, 2X, 4HA20-, E12. 4)  t. 

254  FORMAT  (////,  IX, 33HAUGMEM7ED  LIMEAR  NET!!QR!<  DESCRIRTIOM)  (. 

ass  FORMAT  (2X,  7.3,  GX,  1 3, 3X*  13,  ?X,  A2>  4X,  E10 .3, 3X,  13, 3X)  <: 

253  FORMAT  (1HO,17HPORT  ASSIGNMENTS: ,  /1M0 , 4X,  4.XP0R  T .  4X.  314M0DE  PAIR,  /l KM 
1  ,  3X, GUMUNBER,  3X. 4MFR0M. 2.X. 2MT0,  '1H  ,3X,3(  1H.  ),3X,4(  Ml.  ),  IX, 4(11-1.  )f. 


2) 

270  FORMAT  (EX, 12, 5X, 12, 3X, 72) 

272  FORMAT  (///,SH  A  MATRIX) 

274  FORMAT  (1110,4013) 

27 5  FORMAT  (/, 12H  EIGEM0ALUE5) 

273  FORMAT  V , 2 ( 3X, E12 . 4 ) ) 

230  FORMAT  (', 13H  MODAL  MATRIX) 

232  FORMAT  (  4(2X, E12. 3, 3X. E12.3 ) ) 

234  FOPMAT  (1K0.25HTIME  FOR  FORMIMO  200 (SEC ) , F10. 4 ) 

233  FOPMAT  (111  .  3SHTIME  FOR  03TAII1IN3  OUTPUT  5REC7R’JM(  SEC ) .  F 10 . 4 ) 
2S3  FORMAT  (111  ,  251 1707  AL  EXECUTIOM  T'ME  ( SEC ) ,  FI  0 . 4 ) 


END 

SUBROUTINE  DOPTMS  ( TITLE, D3* F3, MX. 


MM, PR, PC, AP ) 


r 


< ; 
4  ; 

OPT  •  0113.  •  r 


this  01)7 -PROGRAM  PERFORMS  THE  FCLLOUING  FUNCTION: 

*  1.  SET  TIE  FUR,  UAPIAOLES  FOR  THE  USER  RESILE  37 

»  AMD  ALGO  PRINT  THESE  OPT  10' 13. 


i. 


a  »  *#  „  ;» 


(IS  £  UD  -  P  POOP  A 1!  R  3  C  LOGS:':?'"  0-  -  OPTRA! !  MAXES: 
TITLE  :  USER  PEPUE37S0  CP  1 1 0X5 


D3 


'"Jll 


*  i : 


EE’  0 
Co  20 
G3E0 
CE4  0 
££50 
ESSO 

coro 

EC  30 
EE  SO 
Ll'00 
CSV j  0 
p;  go 

c:-4.n 

07-.-0 

i.rso 

FIRM 

f;  fo 
e;  .sm 

EERO 
CL  '  0 
EE  20 
EC  SO 
E3  '.0 
ESSO 
ERGO 

c:s  o 

EE  30 
CR'.'O 


G.  w 

cr: 


:0 

'0 

Cf.  ;o 

e  ?:>»■> 
trio 
c-r.:r> 

GEoO 

g 

7 1  s  o  o 
7  0 .1 0 
;  r  p;‘j 

7)  • ;  n 
7  t.v.O 
7  «*"?  0 
7  l  ■  7  n 

-  0 

;.n 

;  u 


n  nn 


123  IF  CIDUM.E0.2HftP)  AP=1 
130  CONTINUE 


132 


C*«***  PRINT  THE 
C 

WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
RETURN 


OPTIONS  LIST 


(G,  134) 
(G, 12S) 
( G> 123) 
CG, 140) 
(G. 142) 
(S,  144  > 
( G , 143 ) 
(G, 143) 
(G, 150) 


LANS ( D3 ) 
LANS! r  5) 
LANS (NX) 
LAN31SE) 
LANS CNN) 
LANS C PR) 
LANS CPC) 
LANS CAP) 


DO? 

rgp 

TOP 

LOP 

CO? 

TO? 

rop 

TOP 

TCP 

EC? 

EG? 

EC? 

I'O? 

EG? 

EG? 


END 

SUERO'JTINE 
1CONT ,  UALUE*  ICES’) 


£*»*»»**»*»»****»»** 
C  * 

THIS 


1.  j 

CACMNT  (K,  M,  NKEY,  NADD.  ICON.  JCON.  NCT.  3R,  Nr  RON.  NTO.  TYPE.  Iff. 

U 
Cr 

?«*<>«•»**»»*»•»**«*  »»5*a«a»«9  *!»»«*»« 


SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION 
1.  FORM  THE  AUGMENTED  LINEAR  NETWORK  3Y  LUM 


C***#*-» 

C  * 

c  * 

c  » 

c  » 

C*****vt  THIS 
C 

C  * 

C****»»  THIS 
C  * 

C  * 

C  * 

C  « 

C  » 

C  * 

C  * 

C  * 

C  »  NCT 

C  »  ARRAY  NAME 

C  * 

£**#**#**«  ...in 

c 

1 1 ITEGER  TP .  type  .  C .  L  - r,  R.  G .  1"  i .  UC .  C’J .  CC 
DIMENSION  CRfi'.  t.TRO.'Ul  •.  11707  1  '.  TYPE/ 
DC  MENS  1 0)  I  '.'ALUECD 
DIMENSION  KEV< 1 ) 

COMMON  '001-  HTVFEi  10S COFFf  10.0  1 
COMMON  /013'  NCONf1  32  .  JEOMCi -'0  ■ 


1  IMG 


THE 


r.c.' 


LINEAR  PART  OF  EACH  NGNL 

INE 

AR  ELEMENT  WIT 

H  THE 

«cr.G 

30 

c 

LISTING 

LINEAR  NETWORK. 

ftCY.G 

30 

*’  L!  '.G 

•  oo 

SUE- 

-ROC-RAM 

USES  THE  FOLLOWING 

SUBROUTINE : 

rCAG 

!  J  0 

1.  C 

CTPRT 

•GAG 

:•  20 

«Cr;G 

130 

SUE- 

PROGRAM 

-3  GLOSSARY  07  F 

ORT 

RAM  NAMES: 

'■C;r,c; 

j  40 

i' 

: 

NUMBER  07  THE  NONL 

INEAR  ELEMENT 

cCF.G 

ibO 

fl 

: 

USER  SPECIFIED 

ERA 

UGH  NUMBER  FCR 

THE  X-TH 

<•  GAG 

!  r-:o 

NONLINEAR  ELEN- 

NT 

«rr.G 

i  70 

NKEY 

: 

KEY  UALUE  FOR  T 

HE 

NONLINEAR  ELEN 

ENT  PORT 

i.  ( ii’ 

j  30 

NADD 

: 

CURRENT  HIGHEST 

ER 

7  WON  NUMBER  it 

THE  LIN 

EAR 

i  ■I'j.r; 

:  70 

r  :etnork 

<■; . 

r  ,'  o 

ICON 

NON*  INEAR  Ei  ENG 

NT 

FTRST-CQNTROLL 

IMG  BRAN 

BN 

NO*'  GT.G 

:  0 

JCON 

: 

NONLINEAR  ELENE 

i  IT 

SECOND-CONTROL 

LING  3R 

TO. 

« r 

;  -n 

CURRENT  NOHLi; 
AS  DEFINED  IN 


1  ELEMENT 


,A  ■.  1 1 


^  ”  1  -i  -  '!  !  -  - 


<07 


i  cor  it  c  i : 


720 

730 

74,0 

750 

7G0 

770 

730 

730 

300 

310 

£20 

330 

340 

350 

330 

370 


134 

FORMAT 

C 1HQ 

.  23HUSER  REQUESTED  OPTIONS:) 

EG? 

330 

13S 

FORMAT 

(111 

.  2X.  1  SH.DE2U3  PRINT-OUT: ,  IX,  A3) 

EG? 

CEO 

133 

FORMAT 

( 11! 

.  2X. 27HF REOUENCY  SWEEP  CAPABILITY: . IX, A3) 

I  CP 

7  00 

140 

FORMAT 

( 1H 

, 2X. 1SHTNO-INPUT  CIRCUIT: , IX. A3) 

1  CP 

3 1 0 

142 

FORMAT 

C  ll-l 

. 2X, 25H3TATE  EQUATION  PRINT-OUT: , IX, A3) 

1.  CP 

370 

144 

FORMAT 

(  !H 

, 2X, 35HEIGEMUALUES  MODAL  MATRIX  PRINT-CUT: . IX. A3) 

7,-p 

730 

14G 

FORMAT 

(1H 

,2X,40HOPE;i-CIRCUIT  IMPEDANCE  MATRIX  PRINT-OUT: , IX, A3) 

EG? 

7  7  0 

14a 

FORMAT 

C  11  1 

,  2X, 30HCOMPLETE  OUTPUT  SPECTRUM  PLOT:, IX, A3) 

TO? 

E30 

150 

FORMAT 

C  1H 

.2X.27HALL  EXTRACTED  PORT  OUTPUTS: , IX. A3 ) 

I  OR 

730 

370 
3  SO 
10 
20 
:-o 

40 

1,0 

fO 

70 


. .  0 

i  o 


164 


I 


COMMON  /ENOS/  NCAP.ND'JS.  NRES.  NIND.  NDCS.NCS 
DATA  C.L.G.UC, IS/2H  C.2M  L.2H  G.2HUC.2H  1/ 
DATA  NC ,  NL/2HNC .  2MNL' 


CAG 
CAG 
CAG 

C  CAG 

C*«***A?PLY  A  ZZRO-UALUED  CURRENT  SOURCE  ACROSS  THE  NONLINEAR  ELEMENT  CAG 

C  CAG 

NTYPE ( K ) “TYPE  C  N )  CAG 

TY.-E(rn  =  I3  CAG 

UALUEC  N)*;0. 00  CAG 

KE7(N)=MXEY  CAG 

NCOi  IT  ( i  :CT )  -NC7  CAG 

NCS-'NCS  >•  i  CAG 

C  CAG 

C*»**»CHECX  FOR  A  DEPENDENT  NONL'NEAR  ELEMENT  CAG 

C  CAG 

IF  (ICOri.LE.O)  GO  70  10-7  CAG 

NOTING r>l  CAG 

hxiv-nxiv+i  cag 

CALL  CMTFET  (MAUD.  DP, TYPE. UALUE. NFROM, NTO, KEY. Nr ROMC  ICON) .  NTOC  ICONCAG 

D.HXEY, 13.0.00)  CAG 

NCS-NCS'M  CAG 


UALUEC  MADE) ) 
ICEYC  i!ADD.':;N: 

ncomvcnct)- 

NXEY~N!CE7-!-l 
NCT-NC 


-n.ooo 


CAG 

CAG 

CAG 

CAG 

CAG 


CALL  CNTFET  (NAOO. DR, TYPE. UALUE. NFROM. NTO. KEY. NFROM C JCDN) . NTOCJCDNCAG 
1 ) • UXEY. IS. 0 .00)  CAG 

NCS=NCS>- 1  CAG 

ncomtcncti-nct  cag 

C  CAG 

C»*»**C0Ni3INE  THE  LINEAR  PART  OF  THE  NONLINEARITY  WITH  THE  LINEAR  NTWK  CAG 

C  CftG 

IF  (COrrC'X,  2) .  EO.  0.00)  GO  TO  102  CAG 

CALL  CNTFET  CNADD. DR. TYPE. UALUE. NFROM. NTO. KEY. NFRONCN) , NTOC N) » 8, UCCAG 
I  >  COFFCX, 2) )  CAG 

I CONT  ( NADD )  -  JCOt  IT  C  X )  CAG 

JCGNTC  X ) --0  CAG 

NDC3";mCS+l  CAG 

102  IF  (COFFCX, 1) .EO.O.OO)  RETURN  CAG 

CALL  CH.TrRT  ( t 'ADD ,  DR .  TYPE. UALUE. NFROM.  NTO.  KEY,  NF ROM (N).  NTO C N ) ,  8,  UCCAG 


340 

350 

3S0 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

430 

490 

500 

510 

520 

530 

540 

550 

5G0 

570 

530 

590 

BOO 

BIO 

E20 

630 

640 

850 

6B0 

670 

6S0 

630 

700 

710 

720 

730 

740 


1, COFFCX, 1  )  > 

RAG 

750 

I  CO.’ IT C  NADD  A- ICONIC N ) 

LAG 

7B0 

ICCNT  (ll)-'-O 

CAG 

77  0 

M2D3---::dc3*i 

CAG 

7B0 

RETUPil 

CAG 

730 

c 

CAG 

800 

* INDEPENDENT  TYPE  NONLINEARITY 

CAG 

810 

c 

CAG 

620 

104 

IF  CCOFFCK. 1). EO.O.OO)  RETURN 

CAG 

830 

IF  C f ITYr E CK ) . EO . NC )  GO  TO  1  OS 

CAG 

84  0 

IF  C  NTYFE  ( X  )  .EO.NL )  GO  TO  103 

CAG 

850 

CALL  Cl I7FE 7  (NABD, DR, TYPE, UALUE, NFROM, NTO. KEY, NFEOMCN) . NTO(N). 5,  G. CAG  860 
ICO.-  r  (X.  1  j  CAG  8f  0 

’;-:r-:s-=;:res+i  cag  B3o 

RITL’RM  CAG  B90 

10S  CALL  CNTFET  ( NADD. DP, TYPE, UALUE, NFROM. NTO, KEY, NFROMCN) . NTO( N) . 2. C. CAG  S00 
1COFF f X,  1 )  )  CAG  910 

NEAP'  NCAP  H  CAG  920 

P 1 1  UFi  I  CAG  930 
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n  n 


r 


I 


us  w.uic  i  >svrtu:z  c  i  r+wturacj? 

GO  TO  T?2 

H>»»»  Pn.OnL!  EL  Ii’l.~'_'0"rc0 

i?2  ra'jjtc '  .'"Vn’j-'ic ;  -.svrvjjic  j  v<v,<»l'je;  i  )+'vw_lt(j)  > 

GO  VO  To  2 

iso  rarai-rarara 

HcoTpS-V' 

’22  cent  ran 

GO  70  112 

123  rara.ra.vr.ra  ra  ro  102 
it  racm'j.tn.co  ratcrra 


'8::3HE3  IStHTiri^  O’JS'.Y 


era 
era 

CCD 
CRD 
CCD 
CCD 
CCD 

era 
era 
CCD 
CCD 
CCD 
CCD 
CCD 

can 

CCD 
CCD 
con 

con 

CCD 

era 

CCD 
CCD 
CCD 
COD 
era 
CCD 

era 

CCD 
CCD 

era 

LCD 
CCD 
COD 
era 

COD 
CCD 

con 

COD 

con 

CCD 
CCD 
CSV 
CSV 

*  »»»»  *  »•»»»*#«  »*»#»»*  *  **********  CSV 

«'CSY 

vi  •  r s  ti't-rrara.n  c trace.' ;s  vet  ~cllo:u':s  cumctiqm:  «csv 

'  .  ccr’ora-  vra  cra.raraj  r?  v;:t  crarauTtn  cictoo  esTooee  «r.sv 
i',i  r.:j  draco  s'jr.v.rat  tee  hybrid  era  st.vcc  tamrrori  «cs. 
;-c~r:’_,,_n  c  ten.  *cst 

*CST 
’■CSV 
*r.S7 
*  CSV 
’T.SV 

r^rrav-.  r.  :m';  r  ~  :: ::  :•  -•  •:  7  7-  7  :•  7  7  7- 7  7  7  “•■:•  7  7  »:<  7  *?  7  7  7  77  77  x  7  7 »**»***« CSV 

CSV 

~rara.c:ra_  raraira  r.vro  vo  crate  era  cteuraiD  tee  kyssio  gnd  csv 
ti.'.vt  mcon  rat.3  v.to  sraiv.  icra  r.zr,oi  cev 


123  ra.GT.rar}:  ra  r:,  ret 
cranmo.c;  cn  re  ran 
ra  to  n . 
ran  •: --rao  •?. 
no  ::s2  j :  < 

r-“>'  ’.y  >  '« 

■  iv*onM  '  •  ••  t  ~ 

raranravorara.'r 
rravc.os-irav  : 
iv.'j.'trara  ve'jjirara ) 
wPirara-TYrtrara ; 

::r:c::ra..orararara"-ra 

> 2~>  C.r7.'.";77t 
CO  70  123 

10^  .  7 ...  - 

‘  '  radi'o  rat 

123  Ot 770,1 
t::o 

raracur: ::t  cso.ra  (ractrune^raocraraa,  type.  icora.uftun.KSV) 


V> PS  C"3--ra:7~.7'73  77033007  C7  7 GOTO, VO  737.23: 

:  7070'  OtratO  Ct  7  T  7300  3'.t,':tMT  20.WCH2S 
i.ra.,7  tract  iu  titrate)  m  sra-traccra  ra..vra 


500 

530 

530 

SCO 

530 

5S0 

GOO 

eio 

G.20 
G20 
GOO 
G30 
GS  0 
S70 
GEO 
GEO 
700 
710 
720 
730 
700 
7*20 
?  GO 
770 
7  CO 
7S0 
COO 

s-.o 
S20 
C30 
SCO 
S30 
cSO 
870 
EEO 
£90 
£00 
s?o 
£20 
£30 
£40 
£30 
10 
CO 
30 
40 
SO 
GO 
70 
BO 
£U 
100 
1  10 
1 20 
!  30 
J.-.O 

;  so 

ICO 

}  70 

:  on 


167 


.i 

r 

t 

!# 


1 


nnnnnnnnr. 


INTEGER  ER>  TYPE 

CST 

ISO 

DIMENSION  rscn,  NFROMCII.  NTOCn,  TYPECD,  ICONTCl) 

CS7 

coo 

DIMENSION  'JftLUE(l) 

CST 

210 

DIMENSION  KEY I!) 

CST 

220 

COMMON  mOIC  '  NCONTCEE).  JEONT(  10) 

CST 

£30 

J=1 

CST 

840 

102  J-2*J 

CST 

£50 

I=NELEM/J 

CST 

830 

IE  (I.EO.O)  CO  TO  103 

CST 

270 

L-l 

CST 

£20 

m=i+i 

CST 

8S0 

104  IF  Ct'.GT.  HELEN)  GO 

'0  103 

CST 

800 

LL"L 

C.ST 

310 

NIT— 1 1 

CST 

2~:Q 

IF  CKEY(M) .GE.KEYCL 

•  GO  TO  103 

CST 

330 

I  TEMP-KEY CM 

CST 

340 

I  .'EY  (  M  )  =KEY<  ) 

CST 

350 

KEY  0.) -I  TEMP 

CST 

330 

TEMP=UPLUS','M) 

CST 

370 

Urt'_UEai)-U,.LEEIL) 

CST 

330 

UALUE ( L ) -TEMP 

CST 

220 

ITEtlP=ER(M> 

CST 

400 

EPCM)-EP(L) 

CST 

<  o 

DR(0~I7ENP 

CST 

4  30 

I  TEMP'-'MFROMI  M ) 

CST 

430 

Nr  ROM  (  M )  -’ !~  ROM  ( L ) 

CST 

44  0 

HFROMC  L )” I IEMP 

CST 

<50 

ITEM?=f!TO-  f-i ) 

CSV 

<30 

MTO  ,  M)  -fITO!  L ) 

CST 

a 

nto(L'i=;tem? 

c  37 

4  CO 

ITENP-TYFS  •  it  i 

~  v“  7 

<30 

TYPE(Il)-Y,-Vr£(L) 

r.f  t 

L  n  0 

TYPE<  L  !  -I  TIME 

C:  7 

C  :  0 

ITEMP- ICOi  i  I  f  M) 

CM'  T 

7  ,.;.i 

ICOHTCM )■  ICGNT(L> 

CSV 

1  ~  “i 

ICONT f  L  )  I  I EMP 

CSV 

c-.o 

L-L -I 

rsv 

-  J  0 

IF  <L.LT. 1  )  GO  TO  103 

CSV 

.  jv.i 

M-M-  I 

22.7 

5‘,  70 

CO  TO  i  O-I 

rsv 

LOO 

10S  L-LL  '•  1 

r  l  v 

320 

m=m;  t  ►  i 

CST 

2  ft  o 

GO  TO  104 

CST 

3  !  0 

108  RETURN 

CM" 

r-  ?  i 

P'T 

t:si 

EIID 

CST 

C-;o 

SUBROUTINE  CXTFRT  C  J,  PR.  TYPE. ITTLLE.NFPOM.NTO. KEY, Nl.'R.KEYU 

NT, 71  LPT 

:  o 

*#***»»*•«**#***#»***»*» ♦»»»******»»»***< *»!*»*  **  **********  »****«**#*<HMMM5Cr'V 

2  0 

» 

«CP7 

.*,0 

*»»**»>  THIS  SLD-P°CCP;:r 

!  PERFORMS  IH-  FCL’-CMINS  FUNCTION: 

*CPT 

l-o 

*  i.  i Tin  h  ppppcH  to  . i-::.  limes?  network. 

*T  P7 

20 

> 

*rr ; 

7*0 

»*»***,  this  s'jj-ppofp, ,rv,  r.ry ~r  "c:'TP:V!  nm-CS: 

r  rv  v 

30 

»  j 

1:  ..  ■  '  up  1-  ? 

*  L  '  \ 

' ;  ,'i 

*  nr 

mem  n~  :  1  :ltm eft  7"f~ 

'  C.r  7* 

1 1  0 

«  7 

m-m  l:  ; ;  -.::fmi  "  .of 

r  '*  j ' ", 

'  '  n 

»  ;  |  \ 

!•:•!  r,  v-3  P"*CiM  1*'  MODE  M'JM3E? 

«•  2!  7 

•>  M2 

M" ' J  '-T  EMI  Tn  <-<  MODE  M UNDE? 

•TP) 

■ ;  1  i 

»  I'EYO 

\  i  :  •  '■]  *. «*  C21 

<32  7 

16R 


”9-  - 


n  n n  nnnn 


ARRAY  NAMES  AS  DEFINED  IN  SUB-PROGRAM  AMAIN 


**•»•**«  **»*#»*»**e*::-*«« 


*CPT 
*CPT 

j»**»vte«»*»5*«***s**»«*»«»***-*******»*************CP  I 

CPT 

INTEGER  ER.TYPE.C.L.E,  IS,  R.  G.  'JU, CU. CC. UC 

DIMENSION  ER( 1 ) i  NrROM(l),  NTO(l),  TYPE(l),  UALUEC1),  KEY(l) 


»*•»»»  ADD  A  BRANCH 

J=J+1 
DR( J)=J 
TYPE( J)=NT 
UAU'EC  J)=T 
NERQMC J)=N1 
NTOC J)=N2 
KIYC J)=KiYU 
RETURN 

END 


CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 

CPT 
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150 
1G0 
170 
180 
130 
200 
210 
220 
230 
240 
250 
28  0 
270 
280 
290 
300 
310 
320 
330 


SUBROUTINE  DFTREE  (NROW. NCOL, INDCOL, A, MU) 


su 

BROUT] 

NE  DFTREE  (NROW. NCOL. INDCOL. A. MU) 

DTP 

10 

c 

DIR 

20 

c*#»******  *#■*****»*****-**■*-*■*■**-»*  ***■****■******•**■*•***********•**********•***{]  1  R 

30 

c 

* 

*D  i  R 

40 

£■****■** 

THIS 

SUB-PROGRAM  FERFORMS  THE  FOLLOWING  FUNCTION: 

*D7P 

50 

c 

* 

1.  FIND  THE  PROPER  TREE  FROM  THE  INCIDENCE  MATRIX. 

*DTR 

BO 

c 

* 

*DTR 

70 

£***-*■** 

THIS 

SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINES: 

*BTR 

SO 

c 

* 

1.  DIAECH 

*B7R 

so 

c 

* 

*DTR 

100 

c****** 

THIS 

SUE-FROGRAM^S  GLOSSARY  OF  FORTRAN  NAMES: 

*DTR 

110 

c 

« 

NROW  :  NUMBER  OF  ROMS  IN  THE  INCIDENCE  (A)  MATRIX 

*D7R 

120 

c 

* 

NCOL  :  MUM3ER  OF  COLUMNS  IN  THE  INCIDENCE  (A)  MATRIX*DTR 

120 

c 

» 

INDCOL  :  INDEPENDENT  COLUMNS  OF  THE  A  MATRIX 

«DTR 

140 

c 

* 

*B7R 

150 

1B0 

c 

D7R 

170 

c 

SUBROUTINE  DFTREE  TAKES  THE  MATRIX  A,  APPLIES  SUBROUTINE  DIA 

ECDTR 

ISO 

c 

AMD 

FINDS  THE  INDEPENDENT  COLUMNS  IN  A  CLOSEST  TO  THE  LEFT. 

DTR 

ISO 

c 

THESE  INDEPENDENT  COLUMNS  MAKE  UP  THE  TREE  BRANCHES. 

DTR 

200 

c 

DTR 

210 

INTEGER 

A,  INDCOL (NPOW), COL. TEMP 

DTR 

£20 

DIMENSION  A (MU. 1 ) 

DTR 

£20 

L= 

1 

DTR 

240 

TEMP=1 

DTR 

£50 

CALL  DIAECH  (NROW. NCOL. A. MU) 

DTR 

£30 

C 

DTR 

£70 

c 

STEP  THROUGH  ROMS 

DVR 

£S0 

c 

DTR 

2S0 

DO 

104  K=1 . NRQM 

DTR 

200 

c 

DTR 

210 

c 

STEP  THROUGH  COLUMNS 

DTR 

220 

c 

DTR 

220 

DO  102  J=TEMP,  NCOL 

DTR 

240 

c 

DTP 

250 

c 

FIND  INDEPENDENT  COLUMNS 

DTR 

230 

c 

DTR 

270 

c 

TEST  IF  ELEMENT  EQUAL  TO  ONE 

DTR 

2S0 

c 

DTR 

230 

IF  CA(K. Jl.NE.l)  GO  TO  102 

DTR 

400 

c 

DTR 

410 

c 

RECORD  INDEPENDENT  COLUMN  NUMBER 

DTR 

420 

c 

DTR 

430 

INDCOL(L)=J 

DTR 

440 

L=L+ 1 

PVR 

450 

TEMP=J+ 1 

DTP 

430 

GO  TO  104 

DTR 

470 

102 

CONTINUE 

DVR 

430 

104  CONTINUE 

DTR 

4S0 

RETURN 

DTR 

EDO 

C 

DTR 

510 

END 

DTR 

520 

SUBROUTINE  DHYERD  C MBR. NNODE. DEBUG, NPORT1. ANSCOL. I I . 

BR. TYPE. ICONT 

DND 

10 

IUALUE. a. HEADER. AHS. F3. fg. mu. me  > 

DSD 

20 

c 

DHD 

20 

r************** ********  *  a-**********************************  *************-r,!'iD 

40 

c  * 

*DHD 

50 

£■*•***** 

THIS  SUE-PPOGPAM  PEPFORMS  THE  FOLLOWING  FUNCTIONS: 

<  r:-:D 

GO 

c  * 

1.  PERFORM  HYBRID  ANALYSIS  OF  THE  AUGMENTED 

LINEAR  CKT. 

*r:-:n 

70 

c  * 

2.  ACT  A3  THE  EXECUfllJE  CALLING  PROGRAM  FOR 

PERFORMING 

»DHD 

GO 

170 


c 

* 

THE  HYBRID  ANALYSIS. 

*DHD 

SO 

c 

* 

*BHD 

100 

c*#*-*** 

THIS  SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINES: 

«DHD 

110 

c 

* 

1.  DFTREE 

*BHD 

i20 

c 

■* 

2.  DIAECH 

«DHD 

130 

c 

* 

3.  DPR I NT 

eDHD 

140 

c 

* 

4.  DRAECH 

«dhd 

150 

c 

* 

5.  DPRNT1 

*DHD 

1G0 

c 

* 

«-DHD 

170 

c****** 

THIS  SUB-PROGRAMFS  GLOSSARY  OF  FORTRAN  NAMES: 

eDHD 

180 

c 

* 

NBR  :  NUMBER  OF  AUGMENTED  LINEAR  NETWORK 

BRANCHES 

eDHD 

i  SO 

c 

* 

NNODE  :  NUMBER  OF  INDEPENDENT  NODES 

eDHD 

200 

c 

* 

DEEUG  :  DEBUG  OPTION  FLAG  UARIABLE 

eDHD 

210 

c 

* 

NPORT1  :  ADDRESS  FOR  LOCATING  FIRST  COLUMN 

OF  MATRIX 

fieDHD 

220 

c 

•# 

IN  THE  HYBRID  MATRIX 

eDHD 

230 

c 

* 

ANSCOL  :  ADDRESS  FOR  LOCATING  FIRST  COLUMN 

OF  MATRIX 

B»DHD 

£40 

c 

* 

II  :  ADDRESS  FOR  LOCATING  FIRST  ROW  OF 

MATRIX  A 

eDHD 

250 

c 

* 

ALL  OTHER  UARIABLE  NAMES  AND  ARRAYS  AS  DEFINED 

1  IN  SUB- 

eDHD 

ESO 

c 

* 

PROGRAM  AMAIN 

eDHD 

270 

c 

# 

eDHD 

ESO 

C*******************»**************************  *»*»**«****»*»»*»**»****«  DI-ID 

2S0 

c 

DHD 

300 

INTEGER  A. TYPE. ICONT, UH, CH. DC0L(75) . ICDUNTCP) . COUN. BEGIN. TEMP, ST 

',  TDHD 

310 

IN. 

TP, PORT, HEADER, BR, RBRf  7S) , ANSROW, ANSCOL, DEBUG, ISTP 

DHD 

320 

INTEGER  R.G.C.E.CU.UU.CC.UC 

DHD 

330 

DIMENSION  BR(l),  TYPE(l),  ICONT (15 

DHD 

340 

DIMENSION  UALUE(l) 

DHD 

350 

DIMENSION  A(MU, 1 ) .  HEADER (300) 

DHD 

3S0 

DIMENSION  ANS(ME.l) 

DHD 

370 

DIMENSION  F3U1E.1).  F6(ME,1) 

DHD 

380 

COMMON  /ETYPE/  R. G. L, C. E. IS, CU, UU, CC. UC 

DHD 

3S0 

DATA  CH.UH^IHI, 1HU4 

DHD 

400 

DO 

102  1=1. NER 

DHD 

410 

DCOLC I )=0 

DHD 

420 

102  RBRC I )=0 

DHD 

430 

c 

DHD 

440 

c 

DETERMINE  ELEMENTS  MAKING  UP  THE  TREE 

DHD 

450 

c 

DHD 

4E0 

CALL  DFTREE  (NNODE, NBR, DCOL, A, MU) 

DHD 

470 

c 

fi-iD 

480 

c 

REORDER  A  MATRIX  INTO  FOUR  CLASSES 

DHD 

4S0 

c 

DHD 

500 

c 

1.  TREE  PORT  BRANCHES  (TP) 

DHD 

510 

c 

2.  TREE  NON-PORT  BRANCHES  (TN) 

DHD 

520 

c 

3.  LINK  NON-PORT  BRANCHES  (LN) 

DHD 

530 

c 

4.  LINK  PORT  BRANCHES  CLP) 

DHD 

540 

c 

DHD 

550 

c 

DCOL  CONTAINS  ORDERING  OF  A  WITH  TREE  BRANCHES  IN 

LEFTMOST 

DHD 

5S0 

c 

COLUMNS 

DHD 

570 

c 

DHD 

580 

JJ 

=NNODE+l 

DHD 

530 

N= 

1 

DHD 

GOO 

no 

106  J=l. NNODE 

DHD 

G10 

M=DCOL(J) 

DHD 

E20 

DO  104  K~N.M 

DHD 

S30 

IF  fN.m.K)  GO  TO  10G 

DHD 

840 

DCOL'  JJ  ’  -F 

DHD 

G50 

1  >  *  i 

DHD 

GGO 

r  •.  . 

DHD 

G70 

DHD 

SSO 

nnnn  nnn  nn 


DO  l OS  I=N,NER 
108  DCOLC 1 )=I 

reorder  DCDL  INTO  folk  classes 

I COUNT ( 1 )  MARKS  LAST  PORT  COLUMN  OF  TREE  BRANCHES 
I COUNT (2)  MARKS  LAST  NON-PORT  COLUMN  OF  LINK  BRANCHES 

I  COUNT  C 1  ;r-l 
IT2-NN02E 
1  =  1 

110  DO  113  N=1.IT2 

!1M  =  (.i'CR+1  )*( I-i )+( C3-(2*I))*M) 

I i EN=DCGL(NM) 

1 7  C TYPE  1. 1  TEN ) .  NE .  E .  AND .  TYPE  C ITEM ). NE . C . AND . TYPE  Cl TEM ). NE . 
1  . TYPE C ITEM ) . NE . IS 1  GO  TO  112 

iT.~m=ico’JNrci) 

DCOL C MM 1-uCOLC ITEM1 ) 

DCOLC  I TEiin  =  ITEM 
" COUNT C I  ’  =  "COUNT  ( I >  +  1  - C  ( I -1 ) »2 ) 

112  CONTINUE 

IF  CI.E0.2i  CO  TO  114 
ICO'JMTCn  =  -ICOUNTa)-l 
I COUNT  (2)=NER 
IT2-'-Niir?-NNQDE 
1=2 

CO  TO  110 

REORDER  THE  A  MATRIX  AND  THE  ORIGINAL  LABEL  UECTOR  TO 
CORRESPOND  TO  THE  REORDERED  DCOL 

114  NiT-2 
N=1 

EEG"N=1 

COL’i'l-O 

11G  ITEtn-DCOLCN? 

IF  ( ITEM. 20. BEGIN)  GO  TO  120 
ITEi:rj=DRCNi 
ERCfP=-ERC  IV.EM1 
ERC  ITEiiTTTEKP 
DO  113  J=1 • MNODE 
TEN?=A(.J.M) 

A(  J.Nj-'ACJ.  ITEM) 

113  AC  J*  ITEM  i-'tt-MP 
COUN  COUMn 
DCOL  C  N J =-DCOL  C  N ) 

N-=  1 1  itl 

GO  >0  ! 1G 

120  DCOLC m=-DCOLCNi 

IF  C COUI ! . EG .  C t !DR- 1 ) )  GO  TO  12S 

DO  .124  I--N.N I.N3R 
I  VEM-;ECCiL(  i  ) 

IF  C IT  EM. GO. I)  GO  TO  122 
IF  C TTEM.lt. 0)  GO  TO  124 
EEC  IN- 1 
i 

ra  to  1 1 g 
122  cou:i-cnu;;-n 

DCOL  I.  I  i  -DCOLC  n 
f if f  =  I 

124  CONTINUE 


DHD 

ESO 

DHD 

TOO 

DHD 

710 

DHD 

720 

DHD 

730 

DHD 

740 

DHD 

750 

DHD 

(  bO 

DHD 

770 

DHD 

780 

DHD 

790 

DHD 

800 

DHD 

810 

IDHD 

820 

DHD 

830 

DHD 

840 

DHD 

850 

DHD 

EGO 

DHD 

870 

DHD 

880 

DHD 

690 

DHD 

SOO 

DHD 

S10 

DHD 

820 

DHD 

S30 

DHD 

940 

DHD 

950 

DHD 

BSD 

DHD 

970 

DHD 

S30 

DHD 

SSO 

DHD 

1000 

DHD 

1010 

DHD 

1020 

DHD 

1030 

DHD 

1040 

DHD 

1050 

DHD 

1080 

DHD 

1070 

DHD 

1080 

DHD 

1090 

DHD 

1 100 

DHD 

mo 

DHD 

1120 

DHD 

1130 

DKD 

1140 

DHD 

1  150 

DHD 

1 1G0 

DHD 

1170 

DHD 

1180 

DHD 

1130 

DHD 

1200 

DHD 

1210 

DHD 

1220 

DHD 

1230 

DHD 

1240 

DHD 

1250 

DHD 

12G0 

DHD 

1270 

DHD 

1280 

\n 


123  DO  123  N=i.r!S.? 

123  DC0LUn=VAS3(DCDLCN)) 


DHD  1230 
PHD  1200 


REDUCE  REORDERED  A  MATRIX  TO  ROW  ECHELON  FORM 
CALL  DIF.ECH  C NNODZ .  N3R»  A.  MU ) 


DHD  1210 
DHD  1^20 
DHD  1230 
DHD  1330 
DHD  1350 


DAC'.C  SUBSTITUTE  A  MATRIX 

DHD 

13E0 

DHD 

13B0 

DO  130  i-:2,i;node 

DHD 

1330 

LRUW'-I  ~! 

DHD 

1390 

DO  130  . '-1 ...  LROW 

DHD 

1400 

7,rCO'.-:I 

DHD 

1410 

DHD 

1420 

CO  130  Jn"  j.  >  M3«"\ 

DHD 

1430 

130 

A  k  J , ;•  =••  ,  V  U ,  1C )  -  A  Cl ,  !0  *  I TEM? 

DHD 

1440 

DHD 

1450 

FORMULATE  THE  ELEMENT  CHARACTERISTICS 

DHD 

14G0 

DHD 

1470 

TP  IS  THE  NUMBER  OF  COLUMNS  IN  FI  AMD  F5 

DHD 

1430 

Til  IS  THE  NUH3ER  OF  COLUMNS  IN  F2  AMD  F3 

DHD 

1 4S0 

Li!  IS  THE  NUMBER  OF  COLUMNS  IN  F3  AMD  r? 

DHD 

1500 

LP  IS  THE  NUMBER  OF  COLUMNS  IN  F4  AMD  FS 

DHD 

1510 

DHD 

1520 

TP'ICCUNTCl 1 

DHD 

1 530 

TH  'MNDD.E-ICOUNT ( 1 ) 

DHD 

1 540 

Lt  !■'  7  COL"  H  1 2 1  -N!  'DDE 

DHD 

1550 

LP=4  !DR- 1  CG'JNT  ( 2 ) 

DHD 

1 5S0 

FCRWP+LP 

DHD 

1S7'0 

MPCRT-Vi  !■!•!.!'! 

DHD 

1530 

ANSRO!  1;-NDR 

DHD 

1 530 

DHD 

1  GOO 

WRITE  CB’ S'i'O) 

DHD 

iG10 

IF  1  TP ..  ED ,  0  '■  GO  TO  132 

DHD 

1(320 

IF  i DEBUG. ME. 1 >  GO  TO  132 

DHD 

1F30 

WRITE  (S.27'4)  (ER(I).  1  =  1. TP) 

PHD 

1 G40 

1  S? 

J  -VP :  1 

DHD 

IGoO 

IF  (Ttl.EO.fl'>  GO  TO  134 

DHD 

1 GSO 

IF  (DEBUG .ME.  IP  CO  TO  134 

rnn 

iF.ro 

WRITE  <  (MENS'  ( CR ( I ) » I - J  * NNODE ) 

DHD 

1  CHu 

134 

J- RHODE-:- 1 

DHD 

1(130 

JJ-MNQCE-i-LN 

DHD 

1  .  UU 

IF  (Ltl.EO.ni  CD  TO  133 

DHD 

1  .'10 

IF  (DEBUG. ME. 1 '  CO  TO  133 

DHD 

i .  •;>o 

WRIV.i  (S.2 F3>  (2RC I  ) .  I  •  J.  JJ ) 

pj;i 

: .  j»» 

1  OJ 

J  --UJ  :•! 

PHD 

1  40 

IF  CLP. 2.1. 0?  GO  TO  133 

DHD 

1  .  bO 

IF  i  DrD'JG.  ME.  1 '■  CO  TO  133 

kin 

!  ;'bn 

WRITE  CG.E301  f DR( I )» I"J»M3R) 

DH;l 

• ,  rn 

EERO  CHS  MATRIX 

n;  :n 

1  .  SO 

a  :n 

1300 

133 

DO  Mil  I-1.AN2RCW 

r;  :n 

J  S  1  0 

D3  140  UV.ANSEjU 

r:  in 

1820 

140 

a:  to  (  i  -  j  ■  n ,  n 

D!-:n 

u;;jo 

DO  •44  i-  1 . i .'FORT 

am 

1840 

r.D  >■•.2  UO-TN 

:d 

1350 

143 

;rGc 

p;:d 

'CEO 

ns  i.;.;  u  i.iii 

DHD 

1830 

1  44 

F  3  (  JV  0.0 

DHD 

1  880 

173 


7  '  ' 


KOUNT=ICOUNT(  1 ) 

DUD 

1820 

K=0 

DRD 

1500 

J=1 

D!-,'D 

1310 

DO  14S  1  =  1 .  MBI3 

d:-:d 

1S20 

ITE(1=B!?(I) 

CRD 

1530 

14S 

RBR< ITEM)=I 

Df-.'D 

1540 

IF  (DEEUG.NE. 1)  GO  TO  143 

d:-;d 

1550 

WRITE  (6.232)  TP.TN.LN.LP 

drd 

1530 

WRITE  (6.234)  ( ER( I ) . 1=1 . NBR) 

CRD 

ISr'O 

143 

KQUMT=kOUMT+1 

DRD 

1330 

Mt1=DC0L  ( FOUNT ) 

DRD 

3  530 

I TEMP= I COMT ( MM ) 

DRD 

2000 

ITEMP=RBR(  I TEMP) 

CRD 

2010 

IT1=P0RT+J 

CRD 

2020 

IF  ( TYPE (MM) . EQ. G.OR.TVPE(Mfi) . 

EQ.UC. OR. TYPE (MM). EQ.CC)  GO  TO  152 

DRD 

2030 

c 

DRD 

2040 

c 

UODTAGE  SOURCE  TYPE 

CRD 

2050 

c 

CRD 

2030 

IF  (FOUNT. GT. WOODS)  GO  TO  150 

r;-;n 

2030 

c 

CRD 

2030 

c 

F2 

DRD 

2020 

c 

l:-:d 

23  00 

IT2=LM+J 

CRD 

£i  10 

fiN5( IT! . ITH )=1 . 

CRD 

23  20 

IF  (TYPE(MM).ED.CU)  GO  TO  153 

CRD 

2120 

IF  (TYPE(MM).EQ.UU)  GO  TO  1GS 

CRD 

23.40 

FS(J. J)=-UfiLUE(MM) 

TRD 

2:20 

GO  TO  15G 

CRD 

2  3  GO 

150 

l(=K  +  l 

DRD 

2 30 

F3(j.n=i. 

DRi) 

2.’ 80 

IF  ( TYPE (MM ) . £0. CU )  GO  TO  153 

IRD 

2  3  50 

IF  ( TYPE ( MM ) . EQ . UU )  GO  TO  1SS 

DRD 

2200 

c 

r:-;n 

2210 

c 

F? 

p::d 

2220 

c 

DRD 

2230 

AN5( ITl,IO=-UALUE(MM) 

CRD 

i  240 

GO  TO  156 

DRD 

2250 

c 

DRD 

2  c:  2  0 

c 

CURRENT  SOURCE  TYPE 

DRD 

22',  '0 

c 

DRD 

c  c_3u 

152 

IF  ( FOUNT. GT.NNODE)  GO  TO  154 

DRD 

2230 

FG( J. J )=1 . 

DRD 

2:300 

IF  ( TYPE (UN) . EO. UC )  GO  TO  163 

DRD 

233  0 

IF  (TYPE (Mil)  .EQ.CC)  GO  TO  153 

DRD 

2320 

c 

DRD 

2330 

c 

F2 

DRD 

2340 

c 

DRD 

2350 

IT2=LN+J 

DRD 

2360 

ANS ' I T 1 . IT2 ) =-UALUE(MM ) 

DRD 

2330 

GO  TO  156 

DRD 

23  EO 

154 

K=K+ 1 

DRD 

2330 

c 

DRD 

2400 

c 

F  7 

DRD 

24)0 

c 

DRD 

2420 

ANS ( I T 1 . K ) = 1 . 

DRD 

2420 

IF  (TYPE (MM) .EQ.UC)  GO  TO  1ES 

DRD 

2440 

IF  ( TYPE ( MM ) . EO . CC )  GO  TO  153 

DRD 

2450 

F3(J.!C)=-UALU£(MM) 

DRD 

2460 

15S 

J=J+1 

DRD 

2430 

IF  ( FOUNT . NE . I COUNT ( 2 ) )  GO  TO 

143 

DRD 

t:‘toO 

17^ 


i 

f  — 


GO  TO  174 


C 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


CURRENT  CONTROLLED 
153  IF  ( ITENP.GT.TP)  GO  TO  ISO 
F5 

I T2=NP0R7 + I TEN? 

RNSCITl,  IT2J=-UfiLUECMf1) 

GO  TO  153 

'SO  "F  ( I  TEN? . GT . NNOBE )  GO  TO  1G2 
I7--I7Er;?-TP 
FS(J,IT)=-  I’ALUSCMM) 

GO  70  153 

1S2  IF  ( I7EMP.GT. I COUNT (2) )  GO  70  1S4 
17=1  YEiip-NNDDE 


RN3C  171. 17)  =-L'f)LUE  ( MM ) 
GO  TO  >53 

' 64  I 7= I TEG?- I COUNT ( 2 ) 


I72=MER+TP+I7 

RN3  C  i  7 1,172)  =-'JRLUE  ( MM ) 

GO  70  153 

UOLTRCE  CONTROLLED 
1SS  IF  ( ITENP.GT. TP)  GO  TO  ISO 
FI 


C 

T72=MDR+ITEN? 

RN3  f  1 7 1 ,  1 72 )  =■ -U ALUE  ( MM ) 

CO  70  153 

163  IF  ( ITENP.GT .MNODE )  GO  TO  170 
1 1  =I7Et'iP“7P 
C 

C  F2 

C 

IT2=LU+1T 

RMS  C 1 7 1  ’  I  TP )  =-!JALUE  ( MM ) 

GO  TO  133 

170  IF  ( ITEM?. 07 .  I COUNT f 2) )  GO  iO  172 

I  i  —  1 1  u.t  iP-MMOla. 

F3(  j,  T  7  )-:-URLUE  ( Mil ) 

GO  TO' 1E3 

172  1 7=1  TEMP "I COUNT (2) 


I72=N?0?T-i-TP*I  T 

RMS'  I T 1  >  1 75 ) -;-UALUE C  MM ) 

GO  TO  '53 

; f  (FEEL'S. ME.  1  ?  GO  TO  133 
IF  (LII.EQ.O)  GO  TO  134 


DHD  2490 
DHD  2500 
DHD  2510 
DHD  2520 
DHD  2530 
DHD  2540 
DHD  2550 
DHD  2560 
DHD  2570 
DHD  2530 
DHD  2590 
DHD  2600 
DHD  2610 
DHD  2620 
DHD  2630 
DHD  2640 
DHD  2650 
DHD  2SG0 
DHD  2670 
DHD  2E30 
DHD  2690 
DHD  2700 
DHD  2710 
DHD  2720 
DHD  2730 
DHD  2740 
DHD  2750 
DHD  2760 
DHD  £770 
DHD  2780 
DHD  2730 
DHD  2800 
DHD  2810 
DHD  2820 
DHD  2630 
DHD  2840 
DHD  2850 
DHD  2860 
DHD  2870 
DHD  2B80 
DHD  2890 
DHD  2900 
DHD  2910 
DHD  2320 
DHD  £930 
DHD  2340 
DHD  2350 
DHD  2360 
DHD  2370 
DHD  2380 
DHD  2990 
DHD  3000 
DHD  2010 
DHD  2020 
DHD  3030 
DHD  3040 
DHD  3050 
DHD  3060 
CHD  3010 
DHD  3080 


174 


c 

EHD 

2080 

c 

WRITE  F3  FOR  DEBUG  RUM 

DFID 

3100 

c 

d:-:d 

2110 

WRITE  (G.28S) 

Di-ID 

2)20 

I T1 =1 

DI-ID 

2130 

1?B 

IT2=LM 

DI-ID 

2140 

IF  ((IT2-ITD.GT.10)  GO  TO  180 

DI-ID 

2150 

IF  (IT2.E0.IT1)  GO  TO  184 

DI-ID 

2  ISO 

WRITE  CG.283) 

DI-ID 

3 1 70 

DO  l?’o  1  =  1 . MPORT 

DFID 

31S0 

1?8 

WRITE  (6.290)  (P3( I. J) > J=IT1 . IT2) 

DFID 

21S0 

GO  TO  184 

DFID 

2200 

180 

IT2=ITl+9 

DFID 

2210 

WRITE  (G.233) 

DFID 

2220 

DO  182  1=1. MPORT 

DFID 

2.220 

1S2 

WRITE  (S.290)  (F3( I . J) . J=IT1 . IT2 ) 

DFID 

2240 

IT1=IT2+1 

DFID 

22-50 

GO  i 0  1.6 

DFID 

:-2so 

184 

IF  (TP.EQ.O)  GO  TO  194 

DFID 

2270 

c 

DFID 

2230 

c 

WRITE  FS  FOR  DEBUG  RUM 

DFID 

'pC  fi 

c 

r:-;D 

2300 

WRITE  CG.292) 

DFID 

2210 

I T 1  =  1 

ri-ID 

2220 

IBS 

IT2=TN 

DFID 

2230 

IF  (UT2-rrn.GT.10)  GO  TO  190 

if  in 

2240 

IF  ( IT2.EQ. IT1 )  GO  TO  194 

DFID 

3330 

WRITE  'G.233) 

r:-;n 

2220 

DO  183  1=1. MPORT 

DFID 

2  2"  0 

183 

WRITE  f G. 290 )  (FG( I . J ) . J=IT1 . IT2) 

DFID 

GO  to  is; 

DFID 

2  2  S  0 

130 

I  T2=I T ! +9 

mid 

2400 

WRITE  (G.2S3) 

DFID 

24  3  0 

DO  132  1=1. MPORT 

DFID 

2420 

132 

WRITE  ( G. 290 )  ( F6CI . J) . J=IT1 . IT2 ) 

DFID 

2420 

IT1UT2+! 

DFID 

2.440 

GO  TO  1SG 

EFID 

2450 

134 

WRITE  ( G . 294 ) 

DFID 

2.4G0 

CALL  DPPIWT  ( AMSCOL. AMSROW. AMS. ME ) 

EFID 

2  4  7  0 

c 

DFID 

2480 

c 

ZERO  OUT  FG 

DFID 

24  SO 

c 

DFID 

25  no 

136 

IF  (TM.EO.O;  GO  TO  80S 

DFID 

23:  0 

DO  204  J  =  1 . TM 

DFID 

2320 

EK  =  TPU 

DFID 

2520 

DO  204  1=1. MPORT 

DFID 

23,40 

IT l=PORT+ I 

DFID 

2350 

IF  (LM.EO.O)  GO  TO  200 

run 

2:530 

c 

DFID 

237  0 

c 

CHANGE  F7 

r-m 

2530 

c 

di-id 

2  2.,  SO 

DO  193  K=1.LM 

DFID 

2G00 

LIUMNODE+K 

rvm 

2  2 1  0 

133 

AMS <  IT1 , 1: )  =AM3( IT1 . K ) -( F6U . J > *FLOAT( Af KK. LK ) ) ) 

inn 

22=0 

200 

IF  (LP.EO.O)  GO  TO  204 

DUD 

2230 

c 

I  FID 

21-40 

c 

CHANGE  F3 

r :  in 

2230 

c 

run 

2350 

DO  202  K=1.LP 

El  ID 

2220 

LF=IC0UNT(2)+K 

v:  id 

2280 

176 


I72=HER+TP+K 

DFID 

2390 

202 

ftNSC 171 » I72)=ftN5( IT1. I72)-(FS(I . J)*FLOAT( ACKK, LK ) ) ) 

DKD 

2700 

204 

C0M7IUU2 

Di-ID 

3710 

c 

DHD 

2720 

c 

ZERO  0U7  F3 

EFID 

2730 

c 

dfid 

2740 

SOS 

IF  (Lri.EQ.O)  GO  70  213 

DFID 

2750 

DO  214  J=-1,LN 

EHD 

27G0 

UC-MIIjDIi-J 

ef:d 

*i>  ( (  0 

DO  214  v~I,K?ORT 

DFID 

3780 

ITl-PC.Tf-i-1 

efid 

2780 

* 

:f  cvii.zo.o)  go  70  210 

EFID 

3800 

c 

DFID 

3o  i  0 

£ 

CHAKGE  r  2 

EFID 

ZPPQ 

'C 

DFID 

2S30 

DO  2C3  !<=!.,  7N 

EFID 

2840 

k:c-7p-s-:c 

EFID 

2850 

I72-li;+:< 

DFID 

2320 

203 

0;!3;  171. 172;=3M3(I71. 172)-(F3(I,  J)*FLOAT(-A(KKtLKm 

DFID 

2S?'0 

210 

IF  i 72.20.0)  GO  70  214 

EFID 

2SS0 

c 

DFID 

ZS30 

c 

CMfiMCE  FI 

EFID 

2S00 

c 

EFID 

2?  10 

DO  212  !!-■!>  7P 

DFID 

2820 

DFID 

2530 

PIP 

P.N5C  171*  I72)=fiN3(  171*  I72)-(F3(  I»  J) "FLOAT ( -ft ( K ,  LK ) ) ) 

EFID 

2840 

214 

C0N7  IliL'Z 

EHD 

2850 

c 

DFID 

2530 

c 

FILL  RMS  f-;F7t?i:< 

DFID 

2870 

c 

EFID 

3520 

213 

IF  C  DEDL'D.KZ.  1 )  GO  70  213 

EHD 

2SD0 

HRITE  ( S»  ES31 

EHD 

4  000 

CALL  DFRIilT  ( AM2G3L, AM3PQW, AMS. ME) 

DHD 

4  CIO 

213 

IF  (Lll. 20. 0.02. 72. 20.0)  GO  70  222 

DKD 

<020 

c 

EFID 

4  020 

c 

STORE  B1 

EFID 

4  040 

c 

EFID 

40  SO 

DO  220  I  -  .1  > 7P 

DHD 

4050 

CO  220  J---1  *  Li  1 

DHD 

4070 

K-I!M03£vJ 

DFID 

<0oU 

220 

nr  isc  i,  j)=o(  :.:o 

DKD 

40  SO 

222 

LC-'JI+l 

DFID 

4100 

1 7E!  IP-TP+ 1 

DFID 

4110 

IF  ( ITZI'IP.GT.FORT.OR.LC.GT.NPORT)  GO  TO  225 

EHD 

4120 

c 

EHD 

4130 

c 

STORE  -D4  TRANSPOSE 

DFID 

4  1  40 

c 

DKD 

4150 

DO  224  I-; ITEF?. PORT 

DHD 

41  GO 

JJ^LOI-ITEHP-KINODE 

DKD 

4170 

do  224  2-’_c.t!?arr 

EKD 

4130 

II-JM-LOVP 

DFID 

4190 

224 

Arise  i,  j II.  jji 

DKD 

4200 

223 

IF  C7R.En.0i  GO  TO  220 

DKD 

4210 

c 

DFID 

4220 

r 

STORE  I.'rrv  IIATRIX  ADOUE  F5 

DHD 

<p?o 

c 

DKD 

<.?<n 

no  223  ■ r- 1  >  7P 

DFID 

4230 

LD  TIFG.RV 

i::  in 

4250 

223 

r.r  13 '  I,!.D; -1  .0 

EHD 

4270 

230 

IF  f LP.ZO.O-  GO  70  234 

DHD 

4280 

177 


I 


non  nnn  nnn  non  nnn 


r 


DMD 

42S0 

STORE  UNIT  MATRIX  ABOUE  F4 

DVD 

4300 

DVD 

4210 

I I=TP+1 

DVD 

4320 

DO  232  I =11, PORT 

DVD 

4330 

LD-'NPORT+I 

DVD 

4340 

ANSI I»LD)=1.0 

DVD 

4350 

ITEMP=TP+1 

DVD 

43S0 

LF=LD+TP 

DVD 

4  370 

LE=LD+1 

DVD 

4230 

IF  (ITEMP.GT.PORT.OR.LE.GT.LF)  GO  TO  238 

DVD 

4200 

DVD 

4400 

STORE  -D2  TRANSPOSE 

DVD 

44  J  0 

DVD 

4420 

DO  23G  1  =  1  TEMP, PORT 

DVD 

447  0 

JJ--I-ITENP+IC0UNTC2)  +  1 

DVD 

44,40 

DO  23S  J=LE. LF 

DVD 

‘1 4  3  0 

II=J+1-LE 

DVD 

4  4,  CO 

ANS'  I.J  *  JJ) 

DVD 

4  • :  7  0 

LE=LF-LP 

r  :n 

'Cii'!  1 

l.D=LF  + 1 

run 

IF  ( TP.EO.n.OR.LD.GT.LE)  GO  TO  242 

DHD 

s  b  0  0 

END 

4510 

STORE  D2 

tvn 

4520 

DVD 

4530 

DO  240  1  =1,  TP 

DSD 

4540 

DO  240  J=LD,LE 

DHD 

4550 

1  =  I  COUNT  (2 ) +1 +J-LD 

run 

4  3  SO 

ANS  (  I .  J  )  ='  A  ( I ,  K  ) 

DHD 

4570 

IF  ( DEBUG. NE. 1 )  GO  TO  244 

DHD 

4530 

UPITE  (6, 283 i 

DKD 

4520 

CALL  DPRIH1  ( ANSCOL. ANSROU, ANS, ME) 

DHD 

4  SCO 

DKD 

4  CIO 

REDUCE  ANS  MATRIX  TO  ECHELON  FORM 

DKD 

4G20 

DVD 

4G3Q 

CALL  DRAECH  ( NBR, ANSCOL. ANSCOL. 1 , 1 , ANS, MU, ME) 

DVD 

4  £4  0 

ZERO=l . G000E-15 

DVD 

4E50 

IF  ( DEBUG . NE. 1 )  GO  TO  24S 

rvu 

4  EGO 

WRITE  (G.300) 

DVD 

4E70 

CALL  DPR I NT  (ANSCOL. ANSROU, ANS. ME) 

DVD 

4  £30 

DO  248  1=1. NBR 

DHD 

4GS0 

DO  248  J= 1 , NPORT 

DKD 

4700 

I  I=NER+1~I 

DKD 

4710 

IF  ( ABS( ANS( 1 1 , J) ) .LE.ZERO)  ANS( 1 1, J)  =  0. 0 

DKD 

4720 

IF  ( ANS( I I , J ) .NE . 0 . )  GO  TO  250 

DKD 

4730 

CONTINUE 

DKD 

4740 

11=11+1 

DKD 

4750 

DKD 

4  7  GO 

FILL  COLUMN  HEADING  UECTOR  FOR  FINAL  DPR I NT  OUT 

DHD 

4770 

DKD 

47C0 

J=0 

DKD 

4130 

IF  (TP.EQ.O)  GO  TO  254 

DKD 

4S00 

DO  252  1=1 . TP 

DKD 

4Ci  n 

IT--2»I 

DKD 

4820 

HEADER!  it:.  =EPf  I ) 

DHD 

4830 

HEADER! IT-1 )=CH 

DKD 

4840 

I2=2«(PCPT+I ) 

DKD 

4  £50 

HEADER! I2)=BR( I) 

DKD 

4BE0 

HEADER! 22-1 ,=UH 

DKD 

4870 

IF  (LP.EO.O)  GO  TO  258 

DKD 

4880 

J=TP 

DHD 

4890 

DO  25S  1=1, LP 

DHD 

4300 

J=J+1 

DHD 

4910 

K=I+!COUM7  (2) 

DHD 

4320 

I7=2*J 

DHD 

4930 

KEADER(I7)=ER(!0 

DHD 

4940 

HEADER < IT-1)=UH 

DHD 

4350 

I2=2»CP0R7+TP+I) 

DHD 

4930 

HEADER'  I2)=BR(X) 

DHD 

4970 

253 

HEADER ( 12-i )=CH 

DHD 

4980 

253 

17=4-2027 

DHD 

4390 

N?0RT1=NP0R7-M 

DHD 

5000 

DO  230  1=1 I , HER 

DHD 

5010 

DO  230  J-NPCR7 1 , AN3C0L 

DHD 

5020 

230 

IF  CAB5CAN3(I,  JD.LE.ZERO)  ANS(I,J)=0.0 

DHD 

5030 

17  (DEBUG. HE. 1 1  GO  70  232 

DHD 

5040 

c 

DHD 

5050 

c 

DPR I NT  FI MAE  AMS  MATRIX  FOR  DEBUG  RUM 

DHD 

5030 

c 

DHD 

5070 

CALL  D2RM71  ( 17, MPGR71 , AMSCOL, I I , MBR, HEADER. AMS, ME) 

DHD 

5080 

2S2 

17  (II. 20.U3R)  GO  70  233 

DHD 

5090 

c 

DHD 

5100 

c 

DACX  SUBSTITUTE  FINAL  ANSWER  MATRIX 

DHD 

5110 

c 

DHD 

5120 

I 7 1 = ANSRCM- I I + 1 

DHD 

5120 

172=11+1 

DHD 

5140 

DO  234  1=172, ANSROW 

DHD 

5150 

c 

DHD 

51G0 

c 

AMSC IRW, I CL)  IS  PIU07  ELEMENT  USED  TO  ZERO  ELEMENTS  ABOUE 

DHD 

5170 

c 

DHD 

5180 

I RM= ANERQW+ I 72- I 

DHD 

5130 

I CL=NFCR7+ I 7 1 + I 72- I 

DHD 

5200 

I73=IRM-1 

DHD 

5210 

c 

DHD 

5220 

c 

J=RO',l  ZEROING  OUT  A20UE  PIUOT 

DHD 

5230 

c 

DHD 

5240 

DO  234  J=I I , 173 

DHD 

5250 

B=AN3( J, I CL) 

DHD 

5230 

c 

DHD 

5270 

c 

K=COLUMN  CHANGING  OF  J7H  ROW 

DHD 

5280 

c 

DHD 

5290 

DO  234  K=ICL» AN3C0L 

DHD 

5300 

2S4 

AN5 ( J, K ) = AMS ( J , K) -E *ANS ( IRW, K ) 

DHD 

5310 

25S 

DO  coo  1  =  1 MBS 

DHD 

5320 

DO  233  J=NP0RT1,ANSC0L 

DHD 

5330 

2S3 

IF  (AD3CAM3CI. J) 3.LE.ZERO)  ANS(I,J)=0.0 

DHD 

5340 

c 

DHD 

5350 

c 

DFRIM7  FINAL  AN3  MA7RIX 

DHD 

5330 

c 

DHD 

5370 

IF  (DEBUG. ME. I)  GO  70  270 

DHD 

5380 

CALL  DPR!  17 1  ( 17, MPC.R' T 1 , ANSCOL,  11  ,MER, HEADER. ANS, ME) 

DHD 

5390 

270 

PETURi  1 

DHD 

5400 

c 

DHD 

5410 

272 

FORMAT  (  !H0///) 

DHD 

5420 

274 

FORMAT  ( l!-!0,  ’  GH7PEE  PCR7  BRANCHES,  /30  (IX,  12 ) ) 

DHD 

5430 

srs 

FORMAT  '.t::0,2£H7PiI  i  ION-PORT  BRANCHES,  /30(  IX,  12) ) 

DHD 

5440 

273 

F0RMA7  (i!-!0,22HLi;::<  NON-PORT  BRANCHES,  ."30 ( IX.  12)  ) 

DHD 

5450 

2C0 

FORMAT  ( I 0 .  1SHLINX  PORT  BRANCHES, /30(1X. 12) 1 

DHD 

5430 

232 

FGRNA7  ( I(-!fl,  5H7P  =  ,13/.  GH  7M  =  ,13/,  SH  LM  =  ,13/,  BH  LP 

=  DHD 

5470 

1.13) 

DHD 

5480 

179 


I 


234 

FORMAT  (2, SO,  2MBR,49(.tX.  12)) 

EK'D 

5^  SO 

2S3 

FORMAT  (✓✓x,  1SH  F3  B3F0R2  ZEROING) 

PI-ID 

3500 

233 

FORMAT  (IX) 

end 

5^;0 

290 

FORMAT  (IX. 10(211. 4.110) 

r:-:D 

3520 

292 

FORMAT  C/'/>  ISM  F3  EFFORT  ZERO I ME) 

EM  3 

3530 

294 

FORMAT  (///»  2SH  AM 3  MATRIX  EFFORT  ZEROING) 

r  j 

3540 

2S3 

FORMAT  (/✓/,  251-1  ft  M3  MATRIX  AF7FR  ZEROING) 

r:  id 

5530 

293 

FORMAT  (///.  35H  AM3  MATRIX  IIITU  3  VALUES  FILLED  IN) 

r  ;-;d 

5530 

300 

FORMAT  (///,  35H  P.M3  MATRIX  REDUCED  TO  ECHELON  FORM) 

r:-3 

55T0 

C 

r:  :d 

53S0 

END 

r:-iD 

SUBROUTINE  DIftFCH  ( NRO'.-I >  MCOL .  A.  MO ) 

r::i 

10 

C 

I'YW 

C.0 

r**4Ht**********4t*t»-iH*{i«*»«»*a*  2  4»*a &«««»»»  -»***•-*  3  *  •»•»». ’»«**•»**#*****#**#****  J  Yj  J 

so 

c 

* 

*3111 

4  0 

c*»***«*  THIS  SUB-FROGRAM  PERFORMS  Till  FOLLOWING  FUNCTIONS 

*nvi  i 

50 

C 

*  1.  MANIPULATE  TUT  INCIDENCE  (A)  MATRIX  IMTD  FCHFLOM  FORM 

*T!‘I!  1 

GO 

c 

■> 

r  v.  *;  j ; 

TO 

C«*-***»  THIS  SU3_P20CRrlM:-3  GLOSSARY  CF  FORTRAN  NAMES: 

*mi: 

CO 

C 

«  NRQ!)  :  NUMBER  OF  ROMS  IN  TXT  A  MATRIX 

*r:u 

SO 

C 

*  MCOL  :  NUMBER  OF  COL'JMMS  III  TXT  A  MATRIX 

*pi  m 

ICO 

C 

* 

*mi: 

I. ;  o 

C  ********************  »■***•»*****  *  #  *»■»»»  >  X-  *  x-  ■>».»»  55  »»*•»«■  55S53  *  j  *  "  1 

120 

c 

r»  y !  i 

130 

c 

SUBROUTINE  DIftFCH  MANIPULATES  MATRIX  A  INTO  FCHFLOM  FORM 

c:;: 

:  40 

c 

mi: 

:  3,0 

INTEGER  A.C.G.GPL031.P.B 

j‘  1  !•! 

1.  GO 

DIMFN5I0M  A (MU. 1 ) 

C=1 

ill! 

1  TO 
ICO 

G=l 

i:i: 

ICO 

102 

DO  1  IS  I  =G» NROII 

r::i: 

200 

IF  (A(I,C?.20.0)  GO  TO  113 

IF! : 

210 

c 

n:i 

Sc  0 

c 

INTERCHANGE  I  AMD  G  ROM  TO  GFT  NONZERO  PIVOT 

EMI 

230 

c 

J  ! 

240 

IF  (1.30.0  CO  TO  103 

]• .  1 

250 

DO  104  K=C,MCOL 

mi 

ISO 

B-ACI.IO 

ini 

2  TO 

Ad.K)-A(G.K) 

iiiii 

230 

fi  ( u »  Y  )  —  3 

y  >  ; : 

230 

104 

CONTINUE 

}  ■.. ;  i 

s  o  0 

C 

MU 

t  ;  o 

c 

NORMALIZE  ROM  TO  GET  P03ITTUE  NUMBER  FOR  PIVOT 

Ml! 

1 20 

c 

1  Ml 

1-30 

10G 

IF  (A(G.C).GT.O)  GO  TO  110 

i  Ml 

34  0 

DO  103  K-C.iiCCL 

1  111 

553 

103 

A(G.U)  =  - -A(G.IC) 

J  > . !  i 

:o 

no 

IF  ( G .  GE . I 'ROM )  RETURN 

p  .■  1 ! 

s  so 

c 

j  *  .•  : 

:-r;o 

c 

ZERO  COLUMN  BELOW  PIVOT 

MU 

:-so 

c 

i  : :i 

‘",00 

GPLU3 1=0+1 

!  Ml 

•  ‘  ’  n 

DO  U4  P--GPLU5 1 ,  flROW 

pm: 

420 

E  aif.c: 

'  ’  !  i 

o 

IF  CB.FO.O  00  TO  114 

!■ : : : 

.y,n 

no  lie  imc.nccl 

pm: 

<:  s  n 

112 

M r  f  Y  J  '**  • ;  u »  i  -  ■  ^'ri  (  P  t  In  ) 

;  mi 

..GO 

114 

CONTINUE 

pm: 

<;;o 

G=G-f  1 

C-C-> ! 

pm 

•  1  CO 

180 


& 


n  n  n  nnn  no  n  r>  n  n  n  n  n  n  n  n  n  n  n  n 


GO  TO  102 
CONTINUE 

IF  (G.GT.NRC-W)  RETURN 

C=C-M 

GO  TO  102 


IUCR0U7INE  EPRIN7  (ANSCOL. ANSRON.ANS. ME) 


THIS  SU3-FR0GRAM  PERFORMS  THE  FOLLOMING  FUNCTION: 

1.  pa: NT  THE  ENTIRE  HYBRID  MATRIX  FOR  DEBUG  RUN. 


s»»a-s9o»»s»*-sa*e**»*«aae-»-»-*« ■»»-»«  ■»  •*-»**********»»********-rp~ 

*  c-E.PT 

*:»  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION:  «D?7 

1.  PRINT  THE  ENTIRE  HYBRID  MATRIX  FOR  DEBUG  RUN.  «CP7 

o  *DPT 

*»  THIS  SUB-PRO CRAMPS  GLOSSARY  OF  FORTRAN  UARIA3LE5:  «D?7 

ANSCOL  :  HUMBER  OF  COLUMN'S  IN  THE  HYBRID  CANS)  MATRIX  «D?7 

ANSROU  :  HUMBER  OF  ROM'S  IN  THE  HYBRID  MATRIX  «DPT 

-tt-  *BP  i 

5»«S*Sa«-«!  53-!S-5»5aS.'!58;  j5;iS:!5;!355 ****»****«****»t3PT 

DPT 

SUBROUTINE  DPR I NT  DPRIMTS  THE  ENTIRE  ANS  MATRIX  DPT 

DPT 

PRINTS  ANSRQ’.l  RONS  BY  ANSCOL  COLUMNS  DPT 

TPT 

INTEGER  ANSCOL. AN5R0N  DPT 

DIMENSION  ANSCME. 1)  DPT 

I71~l  DPT 

IV2--ANEC0L  DPT 

IF  ((ITa-ITD.GT.S)  GO  TO  10S  DPT 

IF  (IV2.En.ITl  I  RETURN  DPT 

tpt 

LESS  THAN  10  COLUMNS  LEFT  TO  PRINT  r?T 

DPT 

'FRITS  CG> *  10)  DPT 

CO  ION  >i,ANSRCM  DPT 

M.RITE  (S.112)  ( ANSI I* J)» J=I71 .172)  DPT 

RETURN  DPT 

rr2=ITi-:-9  DPT 

DPT 

MORE  THAN  10  COLUMNS  LEFT  TO  PRINT  DPT 

DPT 

URI7I  CG. 110)  DPT 

BO  103  I~l> ANSROU  DPT 

'.'RITE  CS.  112)  iAN5(Z>J).J=I71.:72)  DPT 

Go" TO  102  DPT 

DPT 

FORMAT  (IX)  DPT 

FORMAT  (IX. 10(111.4. IX))  DPT 


PPRN7I  (HER.  ACL1 ,  ACL2. ARU1 . ARU2.  HEADER.  ANS.  ME) 


Hr.it:-  :■  :* ::  r  :: -  ■■  ■:  r ::  ■; :: :: :: ::  > r  . r:, i a r  .  .  ■*  «  &#«-***-*##-*< j 

.fP] 

:  t.  TNIO  FU3- PROGRAM  PERFORMS  THE  FOLLOMING  FUNCTION:  «rPl 

1,  PRINT  THE  DESIRED  PORTION  OF  THE  HYBRID  MATRIX.  cP?) 

<  i'F ! 

Til'S  CO-FRCERAM.-ttS  GLOSSARY  CF  FORTRAN  NAMES:  "DPI 

•:>  HER  :  TOTAL  NUMBER  OF  COLUMN'S  IN  THE  DESIRED  PART  «TP1 


181 


C  *  ACL1  :  F7R37  COLUMN  OF  THE  E"3IRED  PART  *D?i 

C  *  ACL2  :  LOST  COLUMN  Or  THE  DESIRED  PSP  i"  «DPi 

C  *  ARW1  :  FIRST  CON  OF  THE  DESIRED  PART  «TP1 

C  *  ARU2  :  LOST  PON  OF  THE  DESIRED  POST  «D?i 

C  »  HEADER  :  COLUMN  HEAD  I  NS  UECTOR  »DP1 

C  »  AMS  :  HYBRID  MATRIX  «D?1 

C  *  ME  :  RON  DIMENSION  OF  AN3  IN  THE  CALLING  PROGRAM  «:B?1 

C  *  «-D?l 

£-*#■*«-*»*#*#**  ******■»»*#*»•»>»-»»  it  »tt*  *->>!■**•» a  *»-»■:*  a**  a*  **>©***»■»*  a  aaaaaaaaaai:-  BP  1 

C  DPI 

C  SUBROUTINE  DPRNT1  PRINTS  ONLY  THE  DESIRED  PART  OF  THE  ANS  CPI 

C  MATRIX  DESCRIBING  THE  PORT  EGUATI0N3  ALONG  WITH  THE  COLUMN  CPI 

C  HEADINGS  DPI 

C  CPI 

INTEGER  A.  HEADER,  ACL  1 . ACL2, ARU1 , ARU2> HDR  CPI 

DIMENSION  HEADER (300)  DPI 

DIMENSION  AN3( ME. i)  CPI 

ITM2=ACL1-1  DPI 

IT  1  =  1  IPi 

102  IT2=HDR  DPI 

IF  ((IT2-ITD.GT.I9)  GO  TO  103  DPI 

IF  ( IT2.EO. IT1 )  RETURN  CPI 

C  DPI 

C  LESS  OR  EQUAL  10  COLUMNS  TO  PRINT  T.?l 

c  rp; 

WRITE  (G.110)  (HEADER!  I ) >  I=IT.l>  IT2)  DPI 

ITMl~ITH2'!‘i  DPI 

DO  104  I=ARU1.ARI!2  CPI 

104  WRITE  (3,112)  ( AN3( I . J) . J=ITH1 , ACL2)  CPI 

RETURN  DPI 

105  IT2=IT1+19  DPI 

C  DPI 

C  MORE  THAN  10  COLUMNS  TO  PRINT  CPI 

C  DPI 

WRITE  ( G, 110)  ( HEADER ( I)»I=IV1»IT2)  DPI 

ITM1=ITN2+1  DPI 

ITM2=ITIU+9  DPI 

DO  103  I=AR!-!1* ARW2  DPI 

10S  WRITE  (G> 112)  ( AN3( I*J)»J=ITM1> ITM2)  CP! 

IT1=IT2+1  DPI 

GO  TO  102  DPI 

C  DPI 

110  FORMAT  ( 1H0,  1CK4X,  Al,  12,  5X) )  DPI 

112  FORMAT  ( 1H0. 10(E1 1 . 4>  !'.!) )  DPI 


SUBROUTINE  DRAECH  ( U, N, NARK, ROW1 . COL1, AD. NU, ME)  r~ 

C  DR 

C#****»*»  m«5»#5»5»imi  XSa  »■*»  3  X  39#3!5  JSJ9  »ai*»*5*  m*33I*)l*«*»»*M»**»»«*f  BP 

c  *  «rr: 

C*****-»  THIS  EUB-F ROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION:  «>DP 

C  «  1.  OPERATE  Oil  THE  ROWS  OF  THE  HYBRID  MATRIX  TO  REDUCE  IT  »:CC 

C  *  TO  ECHELON  FORM  <TR 

C  * 

C*»*»**  THIS  SUE-FROGRAM-S  GLOSSARY  OF  FORTRAN  NAMES:  <x?P 

C  *  H  :  LAST  ROW  HUMBER  IN  ECHELON  PART  OF  HYBRID  MAT*' DP 

C  »  fl  :  LAST  ROM  H'JMBE?  FOR  ROW  OPERATION  «TiP 

C  »  MARK  :  LAST  COLUMN  NUMBER  IN  ECHELON  FORM  MATRIX  < TP 

C  «  ROW!  :  FIRST  ROW  HUMBER  IN  ECHELON  FORM  MATRIX  «TF 

C  »  COL!  :  FIRST  COLUMN  NUMBER  IN  ECHELON  FORM  MATRIX 


/ 


c 

«  ALL  OTHER  UARIABLE  NAMES  03  DEFINED  IM  SJ3-PRGGRAM  AM  A I 

N  *DRH 

150 

c 

* 

*DHH 

ISO 

c* 

•»  •*  ••  ■*  “  ■» -a- % -» * -* **•:«■* # * -3 3 3 *  X- * 3  > « 3  X  3 3 3 3 3 3 3 3 3 * 3  » » *  X  S  »  3 »  3 * -* 3  3  *»*****■» ]] R H 

170 

c 

DRH 

180 

DIMENSION  ADC ME. A ) 

DRH 

ISO 

INTEGER  C,  G»  GPLUSi .  P,  RDM! »  C0L1 

DRH 

£00 

r 

DRH 

810 

c 

DRAECM  PERFORMS  RGI!  OPERATIONS  ON  A  TO  REDUCE  A  TO  ECHELON 

FORDRH 

820 

c 

DRH 

£30 

c 

COLUMNS  CC LA  TO  MARX  ARE  REDUCED  TO  ROM  ECHELON  FORM  UHILE 

THEDRH 

240 

c 

ROM  OPERATIONS  ARE  CARRIED  OUT  ON  THE  ROMS  FROM  MARK  +  1  TO 

N.  DRH 

£50 

c 

ROMS  ROM!  TO  M  ARE  REDUCED  TO  ROM  ECHELON  FORM 

DRH 

SSO 

c 

G  IS  THE  ROM  IN  UNION  ME  ARE  DETERMINING  THE  RIUOT  POINT 

DRH 

270 

c 

C  IS  THE  COLUMN  IN  UMICM  ME  ARE  DETERMINING  THE  RIUOT  POINT 

DRH 

£80 

c 

DRH 

2S0 

C=CCL 1-1 

DRH 

300 

G-R3M1 

DRH 

310 

102 

IF  CO.EO.riAR'.O  RETURN 

DRH 

320 

C=C-:-l 

DRH 

330 

r 

DRH 

340 

c 

FIND  THE  MAM  NONZERO  ELEMENT  IN  THE  C  COLUMN  BELOW  AND 

DRH 

350 

c 

II iCLUDIi  rl'JOr 

DRH 

3G0 

c 

DRH 

370 

:^o 

DRH 

380 

EERO -1.0001-15 

DRH 

330 

TME-0. n 

DRH 

400 

CO  104  J-G.M 

DRH 

410 

IF  (r.BSCAT  J.CCn.LZ.ZZRO)  ADCJ,  0=0.0 

DRH 

420 

IF  '  AEG;  R..0  J>  C  /  ^ . LE .  TM2 )  GO  TO  104 

DRH 

430 

Vi1ZBi"»D3( ft.O '  J* C) ) 

DRH 

440 

DRH 

450 

104 

CONTINUE 

DRH 

4S0 

IF  iTiiZ.EO.O.O)  GO  TO  102 

DRH 

470 

c 

DRH 

480 

c 

IF  THE  NONZERO  ELEMENT  IS  IN  THE  PIUOT  ROM.  DO  NOT  EXCHANGE 

DRH 

490 

c 

ROUS 

DRH 

500 

c 

DRH 

510 

IF  CI.ZO.C)  GO  TO  103 

DRH 

520 

c 

DRH 

530 

c:  :~i:am~e  rtu^t  rom  with  com  hauing  nonzero  elemcnt  in  piuot 

DRH 

540 

c 

CCUJfti  I 

DRH 

550 

c 

DRH 

5G0 

DO  103  IC--C.N 

DRH 

570 

DmDCI.K 

DRH 

580 

;';D(I.R^ADX.:n 

DF'H 

530 

10S 

ADC  2 

DRH 

GOO 

c 

DRH 

G10 

c 

CHECK  IF  PILOT  POINT  ALREADY  NORMALIZED  TO  1 

DRH 

G20 

c 

DRH 

G30 

-.03 

TF  CAD '0.0. ED.  1. 1  CO  TO  112 

DRH 

G40 

c 

DRH 

E50 

c 

NORMALIZE  PIUOT  ROM 

DRH 

ESO 

c 

DRH 

G70 

A’_r!!A~ADC  3.  C  :■ 

DRH 

GBO 

to  no  d..;j 

DRH 

SSO 

AD :  0, :<  -AD C  G.  X  ■:  /ALPHA 

DRH 

700 

no 

IF  'ADS' ADC  CMC) ; .LE.EERO)  AD(G.X)=0.0 

DRH 

710 

c 

DRH 

720 

c 

CHECK  IF  JUST  NORMALIZED  PIUOT  IN  LAST  RDM 

DRH 

730 

c 

DRH 

740 

183 


/ 


112  IF  (G.GE.tl)  RETURN 


ERH  750 


c 

CRH 

EO 

c 

EERO  THE  ELEMENTS  EELQW  THE  PIUOT 

CRN 

770 

c 

CRH 

7  £0 

GPLUS 1=6+1 

DR!-! 

7S0 

DO  116  P=GPLUSI.M 

DRH 

£00 

B=AD( P. C 1 

CRH 

£10 

IF  ( AES ( AD ( P . C 1 1 . LE . ZERO )  ADCP, 0=0.0 

CRH 

£20 

IF  (AE3(ADCP»O).EQ.0.0)  GO  TO  116 

DRI-I 

ECO 

DO  114  !C=C,N 

CRM 

£40 

114 

AD(P»!0=-E»AD(G 

IO+ADCP.K) 

DRH 

EoO 

116 

CONTINUE 

CRH 

830 

IF  CG.GE.M)  RETURN 

DRH 

£70 

G=G+1 

EH!-; 

£30 

GO  TO  102 

CRM 

£20 

c 

DRH 

£00 

END 

DPI  I 

£  1 0 

SUBROUTINE  ESTATE 

NP0RT1 , ANSCOL. I I . N3R. NSU, DEBUG, A, B. C. D, UALUE. 

ANEST 

10 

IS. ME, MS. MP) 

EET 

20 

c 

CST 

£0 

£*#»*****  «*ft**»»;fr«***tt*»*a  «  *****»*****-*****»**'»»***'»*******i:-^ci7 

40 

c 

*2S  i 

EO 

C*»»***  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTIONS: 

*:£ST 

GO 

C 

•:>  1.  OBTAIN 

“ME  MATRICES  IN  i.'E  STATE  SPACE  REPRESENTATION 

TO 

C 

*  FOR  THE 

AUGMENTED  LINEAR  .NETWORK. 

*  I£  S  T 

£0 

C 

*  2.  PRINT  T! 

IE  STATE  SPACE  DESCRIPTION,  IF  REQUESTED. 

ii^ST 

£0 

C 

* 

«£S7 

ICO 

c*»***»  THIS  SUE-FROGRAM-S  GLOSSARY  OF  FORTRAN  NAMES: 

1 1  0 

C 

*  MFORTi 

ADDRESS  FOR  LOCATING  FIRST  COLUMN  OF  CATS IN 

j  20 

C 

*  AM5CGL 

ADDRESS  FOR  LOCATING  FIRST  COLUMN  OF  MATRIX 

B*EST 

130 

C 

*  II 

ADDRESS  FOR  LOCATING  FIRST  ROW  OF  MATRIX  A 

r.  r  1'  T 

140 

C 

it  tier 

TOTAL  NUMBER  OF  BRANCHES  IN  LINEAR  CIRCUIT 

r,  ;•:$*,* 

ISO 

C 

»  N5U 

TOTAL  NUMBER  OF  STATE  UARIA3LE3 

kZz~ 

160 

C 

-»  DEBUG 

FLAG  UARIABLE  FOR  PRINTING  STATE  EQUATIONS 

«Z?:> 

1  70 

C 

*  A 

MATRIX  A  IN  STATE  SPACE  DESCRIPTION 

180 

C 

*  B 

MATRIX  3  IN  STATE  SPACE  DESCRIPTION 

*:ZS  7 

ISO 

C 

*  C 

MATRIX  C  IN  STATE  SPACE  DESCRIPTION 

*:ZS*7 

EOO 

C 

*  D 

MATRIX  Q  lil  STATE  SPACE  DESCRIPTION 

«IST 

210 

C 

*  UALL'E 

ARRAY  OF  ELEMENT  UALUE3 

£20 

C 

■*  ANS 

HYBRID  MATRIX 

230 

c 

* 

<~S7 

240 

C**************»********»***x  *»***■»»»**•*****»»*****  ************»«**-»*****(i£,.T 

r*  r  :c.~r 

250 

u 

INTEGER  AMSCOL. CONN. DEBUG 

[-C-- 

C.  w  --1 

cTO 

DIMENSION  UftLUE ( 1 ) 

EST 

r.SO 

DIMENSION  ANSCME.i 

EET 

220 

DIMENSION  A CMS. 1 ) . 

BCM3.11,  C(MP.l),  DCMP.il 

pc  -- 

2  00 

DIMENSION  DENONC20) 

IS.  T 

2  >  0 

COMMON  /ENGS/  MCA? 

NDU3. NRES- MIND, HBOS-  MC3 

LET 

220 

NCPi=NCAP+l 

cc-; 

l. 

:so 

IF  (tlCAP.EO.Ot  GO 

‘0  104 

EET 

Con 

DO  1C2  I--1  •  MCAP 

:  c  y 

230 

102 

DEMON.'  I  ) ‘-VALUE '  P 

FSV 

:■  so 

104 

IF  ( MIND . EO , 0 )  CO 

"0  103 

E;  t 

c-.ro 

IC=NCAP+Ur,V3+MRE3 

(if  V 

C  7  0 

DO  103  I=NCP1. HSU 

F.L 

CEO 

1C  =!C  + 1 

tcv 

con 

103 

DEMON ( I  )=l.'ALuE(R  ' 

l  ;  i 

*:  •  n 

c 

103 

NEONS  WIEP+1 -I I 

C;  V 

EEC 

184 


F/G  9/3 


r 


AD-A088  422 


PURDUE  UNIV  LAFAYETTE  IND 

PRANCJ  PROGRAM  FOR  ANALYZING  NONLINEAR  CIRCUITS. (U) 

MAY  80  H  K  THAPARr  0  J  LEON  F30602-?8-< 

RADC-TR-60-139 


>0102 

NL 


UNCLASSIFIED 


DO  110  J=N3*  N4 

EST 

550 

J1=J1+1 

EST 

560 

110  Adi. J1)=-AN3(I, JVDENOM(Il) 

EST 

570 

c 

EST 

580 

C  FILL  MATRIX  3 

EST 

590 

C 

EST 

600 

N5= AN5C0L-WCS+ 1 

EST 

610 

M3=AMSC0L 

EST 

620 

11=0 

EST 

630 

DO  114  I=N1 >  M2 

EST 

640 

11=11+1 

EST 

650 

J1=0 

EST 

660 

DO  112  J=M5«  MS 

EST 

670 

J1=J1+1 

EST 

680 

112  Bai,Ji)=-ANsa,j)/'DEriatiai) 

EST 

690 

114  COMTIMUE 

EST 

700 

c 

EST 

710 

0***-*FILL  MATRIX  C 

EST 

720 

C 

EST 

730 

11=0 

EST 

740 

M1=M2+1 

EST 

750 

M2=M2+WCS 

EST 

760 

M3=AMSC0L-MCS-MSU+ 1 

EST 

770 

M4=M3+NSU 

EST 

780 

DO  11G  I=M1.M2 

EST 

790 

11=11+1 

EST 

BOO 

J1=0 

EST 

810 

DO  11G  J=M3.M4 

EST 

820 

Jl=Ji+l 

EST 

830 

CCI1.  J1)=-ANS(I,  J) 

EST 

840 

US  COMTIMUE 

EST 

850 

C 

EST 

860 

C*»***FILL  MATRIX  D 

EST 

870 

C 

EST 

880 

M5= AMSCOL-MCS+ 1 

EST 

890 

MS=M5+MCS 

EST 

900 

11=0 

EST 

910 

DO  118  I=N1»N2 

EST 

920 

11=11+1 

EST 

930 

J1=0 

EST 

S40 

DO  118  J=M5»M3 

EST 

950 

J1=J1+1 

EST 

S60 

D(Il.JD=-ANSa.  J) 

EST 

970 

113  COMTIMUE 

EST 

980 

C 

EST 

S90 

C  PRIMT  MATRICES  A,  B.C  .  D 

EST 

1000 

c 

EST 

1010 

IF  (DEBUG. ME. 1)  GO  TO  123 

EST 

1020 

WRITE  (G. 130) 

EST 

1030 

•a 


■a.  mimm mm*  a 1  m  ■ 


185 


DO  120  1=1, NSU 

EST  1040 

120 

WRITE  (3,132)  (A(I, J), J=1,MSU) 

FST  1050 

WRITE  (3,134) 

EST  1CS0 

DO  122  1=1, NSU 

EST  lOr'O 

122 

WRITE  (3,132)  (B( I, J) , J=l, NCS) 

EST  1CS0 

WRITE  (3,133) 

EST  10S0 

DO  124  1=1, NCS 

EST  1100 

124 

WRITE  (3,122)  (C(I, J), J=1,N3U) 

EST  1110 

WRITE  (3,133) 

EST  1120 

DO  123  1=1, NCS 

EST  112,0 

12S 

WRITE  (3,122)  (D(I, J), J=1,NC3) 

EST  1340 

123 

RETURN 

EST  11  SO 

EST  11.30 

130 

FORMAT  ( 11-11,  SH  MATRIX  A) 

ES i  1170 

132 

FORMAT  (X, 11(E10.3,2X)) 

EST  11 SO 

134 

FORMAT  ( /, SH  MATRIX  B) 

EST  1120 

13S 

FORMAT  (/,SH  MATRIX  C) 

EST  1200 

133 

FORMAT  (/,SM  MATRIX  D) 

EST  1210 

EST  1220 

END 

EST  1230 

SUBROUTINE  FEALNC  (fl.ti,  IA>  B, 

K,U 

FBC 

10 

C 

FEC 

20 

CMmmWMKHKKNHilHHMMHlHItM 

*-s  »«-»»«*»*■*  ennt»«-»**9»*»**»»»****»*****FBC 

30 

C  * 

*FEC 

40 

Oe*»»»  THIS  SUB-FRQGRAM  PERFORMS 

THE  FOLLOWING  FUNCTION: 

«FBC 

50 

C  »  I.  BALANCE  A  REAL  NO 

TRIM  A. 

*FBC 

GO 

C  * 

*FEC 

70 

THIS  SU3-PR0GRAMP5  GLOSSARY  OF  FORTRAN  NONES: 

«FBC 

80 

C  *  ft  :  MATRIX  TO  EE  BALANCED 

*FEC 

90 

C  »  M  :  DIMENSION  OF  MATRIX  0 

*FBC 

100 

C  «  10  :  ROM  DIME 

NSIQN  OF  A 

*r  EC 

110 

C  «  D  :  ARRAY  CONTAINING  INFORMATION  ABOUT 

PERMUTATIO*FBC 

120 

C  «  AND  SEAL 

E  FACTORS 

*FEC 

130 

C  *  !(,L  :  INTEGERS 

SUCH  THAT  AC I>  J)=0  IF  (1) 

I  GT  J  AND*FEC 

140 

C  *  (2)  J=l, 

2, ...,!(-!  OR  I=L+1  s  . . . » N 

*t  BC 

150 

C  •» 

*FBC 

ISO 

»■»»•»«*«•»*•» 5  S 9 ««»««««  5  S9M5  5M 

*-3*a»»»-»»»»»*-*a*s»***»»****»****«int**«pBC 

170 

c 

FEC 

180 

dimension  nan, i),  du> 

FBC 

ISO 

DATA  B/13. 0/?  D2/253. 0/ 

FEC 

200 

DATA  ZERQ/0 . 0/j  ONE/i . 0/. PS5/ 

.93/ 

FEC 

210 

C 

FEC 

220 

REDUCE  NORM  A  BY  DIAGONAL 

SIMILARITY  FEC 

230 

C»5>  it 

TRANSFORMATION  STORED  IN  ! 

D 

FBC 

240 

c 

FEC 

250 

Li  =  1 

FEC 

2G0 

1(1  =N 

FEC 

270 

C 

FEC 

280 

C««***it 

SEARCH  FOR  ROWS  ISOLATING 

AN  EIGEN- 

FEC 

230 

UALUE  AND  PUSH  THEM  DOWN 

FBC 

300 

c 

FBC 

310 

10!  l(IPi=.’(I+l 

FBC 

320 

IF  (Kl.LT. 1)  GO  TO  107 

FEC 

330 

id  i=ia 

FBC 

340 

DO  10S  JJ=1,K11 

FBC 

350 

J=!(1P1-JJ 

FEC 

3B0 

R=2ER0 

FBC 

370 

BO  100  1  =  1 ,1(1 

FBC 

280 

IF  (I.EQ.J)  GO  TO  10S 

FBC 

390 

R=R* A33 ( A ( J » I ) ) 

FBC 

400 

102  CONTINUE 

FBC 

410 

IF  (R.NE.2ER0)  GO  TO  103 

FBC 

420 

D(I(1)=J 

FEC 

430 

IF  ( J.EO.K1)  GO  TO  105 

FBC 

440 

DO  103  1=1, 1(1 

FEC 

450 

F=ACI» J) 

FEC 

4G0 

fl(i,j)=oa,i(i) 

FEC 

470 

A(  I.  !(1  )=F 

FBC 

480 

103  CONTINUE 

FEC 

490 

DO  104  I =L 1 >  N 

FBC 

500 

F=ACJ> I) 

FEC 

510 

A(J»Z3=ACK1»I) 

FEC 

520 

AC(!.I)=F 

FBC 

530 

104  CONTINUE 

FBC 

540 

105  :(!=:(!-! 

FBC 

550 

GO  TO  101 

FBC 

5G0 

10S  CONTINUE 

FEC 

570 

c 

FEC 

580 

C»*”it*it 

SEARCH  FOR  COLUMNS  ISOLATING  AN 

FEC 

590 

»<**•*:* 

EIGENUALUE  AND  PUSH  THEM 

LEFT 

FBC 

GOO 

non 


103 


109 


110 

111 


C 

c***»»* 

c*«»»** 

c 


DO 


DO 


116 


n? 


113 

119 


Frc 

610 

O'l.LT.Ll)  GO  TO  113 

EEC 

GcO 

=L1 

EEC 

E30 

na  J=LL»K1 

EEC 

640 

C=2ER0 

FEC 

G50 

DO  103  I=L1»K1 

FEC 

GSO 

IF  (I.EQ.J)  GO  TO  103 

EEC 

G?0 

C=C+A3S(A(I.  J)) 

FEC 

GEO 

CONTINUE 

FEC 

GSO 

IF  CC. ME. ZERO)  GO  TO  112 

EEC 

700 

DILI )-J 

FEC 

75  0 

IF  ( J.EQ.L1 )  GO  TO  111 

FEC 

720 

DO  109  1=1. K1 

EEC 

720 

F=A( I . J) 

FEC 

740 

A(I. J)=A(I.L1) 

FEE 

ISO 

AC  I . LI )=F 

FEC 

7E0 

CONTI HUE 

FEC 

770 

DO  110  I =L 1 . N 

EEC 

7G0 

F=A(J. I) 

FEC 

7S0 

ACJ.I)=ACL1.I) 

FEC 

coo 

ACLl . I )=F 

FEC 

CIO 

CONTINUE 

FEC 

C20 

L1=L1+1 

FEC 

CEO 

GO  TO  10? 

FEC 

E40 

NTINUE 

FEC 

€30 

FEC 

£30 

NOW  BALANCE  THE  SUBMATRIX  IN  ROWS 

FEC 

870 

LI  THROUGH  K1 

FEC 

ESO 

FEC 

£20 

LI 

FEC 

SCO 

K1 

FEC 

S'  0 

(K1.LT.L1)  GO  TO  115 

FEC 

CEO 

114  I=L1.K1 

FEC 

£20 

D(I)=0NE 

EEC 

S40 

NTINUE 

FEC 

£30 

CONI' =0 

FEC 

SSO 

(K1.LT.L1)  GO  TO  124 

FEC 

£70 

123  I=L1.K1 

FEC 

SEO 

C=ZERO 

FEC 

CSO 

R=ZERO 

FEC 

1000 

DO  116  J=L1*K1 

FEC 

1010 

IF  CJ.EO.I)  GO  TO  116 

FEC 

1020 

C=C+ABS(A(J.  in 

FEC 

1030 

R--R+ABSCACI.  J)) 

FEC 

1C40 

CONTINUE 

FEC 

1050 

G=R/B 

FEC 

iCSO 

F=ONE 

FEC 

1070 

S=C+R 

FEC 

1080 

IF  (C.GE.G)  GO  TO  118 

FEC 

ICSO 

F=F*B 

FEC 

1100 

C=C*B2 

FEC 

1 1 o 

GO  TO  11? 

FEC 

15  20 

G=R»B 

FEC 

15  30 

IF  (C.LT.G)  GO  TO  120 

FEC 

1140 

F=F/B 

FEC 

1 5  SO 

0=0/152 

FEC 

1 5  GO 

C-0  TO  119 

FEC 

1 1 70 

t 


188 


120 

IF  (CC+R)/F.GE.P95*S)  GO  TO  123 

FBC 

1210 

G=ONS/F 

FEC 

1220 

mi)=D(I)»r 

FEC 

1230 

N0C0NU=1 

FEC 

1240 

DO  121  J=L1»N 

FEC 

1250 

ACI. J)=A(I. J)*G 

FEC 

1250 

121 

CONTINUE 

FBC 

1270 

DO  122  J=1,K1 

FBC 

1280 

AU.I)=A(J»I)*F 

FEC 

1290 

122 

CONTINUE 

FBC 

1300 

123  CONTINUE 

FBC 

1310 

124  IF 

CNOCONU.EO.n  GO  TO  115 

FBC 

1320 

RE 

TURN 

FEC 

1330 

C 

FEC 

1340 

END 

FBC 

1350 

SUBROUTINE  FEUEU  (0,  N,  IA,  14, 2. UK.  IER) 

FEU 

10 

C 

FEU 

20 

*•»»*»•■:*•*»*»**  »»»:»»**«i'tt**»»»************************''MHHH***FEU 

30 

C  * 

•FEU 

40 

c«**«»* 

THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

•FEU 

50 

c  * 

1.  OCT  03  THE  EXECUTIVE  COLLING  PROGRAM  FOR  OBTAINING 

•FEU 

GO 

c  * 

THE  E I GENUflLUES-E I GENUECTORS  OF  ft  REAL  MATRIX. 

•FEU 

70 

c  » 

•FEU 

80 

THIS  SUB-PROGRAM  USES  THE  FOLLOUING  SUBROUTINES: 

•FEU 

SO 

c  » 

1.  FBftLNC 

•FEU 

100 

c  * 

2.  FRDH33 

•FEU 

110 

c  » 

3.  FBXXM1 

•FEU 

120 

0  * 

4.  FEXXM2 

•FEU 

130 

c  * 

5.  FGRALG 

•FEU 

140 

c  * 

G.  FER7ST 

•FEU 

150 

c  « 

•FEU 

ISO 

THIS  SUB-PR0GRAMP5  GLOSSARY  OF  FORTRAN  NAMES: 

•FEU 

170 

c  * 

A  :  MATRIX  WHOSE  EIGENUALUES-EIGENUECTORS  ARE 

TO  «FEU 

ISO 

c  * 

TO  BE  FOUND 

•FEU 

'SO 

c  » 

N  :  DIMENSION  OF  MATRIX  A 

•FEU 

200 

c  » 

I A  :  ROM  DIMENSION  Or  A 

•FEU 

210 

c  * 

II  :  ARRAY  CONTAINING  THE  EIGENALUES 

•FEU 

220 

c  » 

Z  :  MODAL  MATRIX 

•FEU 

230 

c  * 

UK  :  WORK  ARRAY 

•FEU 

240 

c  * 

IER  :  ERROR  PARAMETER 

•FEU 

250 

c  * 

•FEU 

2G0 

£»****-******■**»■»■**«»*»*•:»»■*• »*»»»*»*»»*»»  »»»-i»*******»***************«-***«FEU 

270 

C 

FEU 

280 

DIMENSION  11(1).  HX<N,  1).  ZC1) 

FEU 

290 

DATA  ZERO, ONE/O. 0.1.0/ 

FEU 

300 

C 

FEU 

310 

c  «»**** 

INITIALIZE  ERROR  PARAMETERS 

FEU 

320 

c 

FEU 

330 

IER=0 

FEU 

340 

JII 

R=0 

FEU 

350 

12 

-IA 

FEU 

3G0 

IZ2=IZ+IZ 

FEU 

370 

C 

FEU 

380 

(;*»»•»»» 

PACK  A  INTO  AN  N  BY  N  ARRAY 

FEU 

390 

C 

FEU 

400 

IC= 

1 

FEU 

410 

L“ 

1 

FEU 

420 

DO 

105  J=1»N 

FEU 

430 

DO 

103  1=1, N 

FEU 

440 

A  ( X » L ) =A ( I • J 1 

FEU 

450 

189 


1 

,  ..... 


1iiiMUil&bmdib*2a&i3t*ZkJi££ia  ri.  A  *1  .  .a: 


K=K+1 

FEU 

4S0 

IF  (K.GT.IA)  K=1 

FEU 

470 

IF  (K.EQ.l)  L=L+1 

FEU 

480 

105  CONTINUE 

FEU 

430 

m=i 

FEU 

500 

N2=N1+1 

FEU 

510 

C 

FEU 

520 

C******  BALANCE  THE  INPUT  A 

FEU 

530 

C 

FEU 

540 

CALL  FBALNC  ( A, N, N, WK(1. N1 ) , K. L) 

FEU 

550 

C 

FEU 

5S0 

IF  L  =  Oi 

A  IS 

ALREADY  IN  HESSENBERG 

FEU 

570 

C****«»  FORM 

FEU 

580 

C 

FEU 

530 

CALL  FRDHSS  (A.  K,  L,  N. N, UKd , N2 ) ) 

FEU 

BOO 

C 

FEU 

S10 

C******  SET  Z  IDENTITY 

MATRIX 

FEU 

620 

C 

FEU 

G30 

11=1 

FEU 

B40 

JJ=1 

FEU 

B50 

NP1=N+1 

FEU 

GSO 

DO  115  1=1, N 

FEU 

G70 

DO  110  J=1,N 

FEU 

GSO 

Z( II )=ZERO 

FEU 

ESO 

11=11+1 

FEU 

700 

110  CONTINUE 

FEU 

710 

Z(JJ)=ONE 

FEU 

720 

JJ =JJ+NP1 

FEU 

730 

115  CONTINUE 

FEU 

740 

CALL  FBKXN1  CZ, A, UK(1,N2)»N,N,K.L) 

FEU 

750 

I  IZ=N 

FEU 

760 

CALL  FQRALG  ( A. N, N, K, L. U< 1 ) , W(N+1 ),Z, IIZ, JER) 

FEU 

770 

IF  ( JER.GT. 128)  GO  TO  120 

FEU 

7S0 

CALL  FBKXM2  (UK( 1, N1 ) , Z.K, L, N, N, N) 

FEU 

790 

C 

FEU 

BOO 

C******  CONUERT  W 

(EIGENUALUES)  TO  COMPLEX 

FEU 

810 

FEU 

S20 

C 

FEU 

B30 

120  DO  125  1=1, N 

FEU 

840 

NPI=N+I 

FEU 

S50 

WK( I , N1 )=W(NPI ) 

FEU 

sso 

125  CONTINUE 

FEU 

870 

JU=N+N 

FEU 

880 

J=N 

FEU 

£90 

DO  130  1=1, N 

FEU 

300 

W(JU-1)=W(J) 

FEU 

910 

U(JU)=UK(J.N1) 

FEU 

£20 

JW=JW-2 

FEU 

930 

J=J-1 

FEU 

S40 

130  CONTINUE 

FEU 

B50 

C 

FEU 

SGO 

(EIGENUECTORS)  TO  COMPLEX 

FEU 

970 

C******  FORMAT  ZCI2.N) 

FEU 

BBO 

C 

FEU 

£90 

J=N 

FEU 

1000 

135  IF  ( J.LT, 1 )  GO  TO  160 

FEU 

1010 

IF  (W(  J+J)  .EQ.ZERO)  GO  TO  150 

FEU 

1020 

C 

FEU 

1030 

OF  COMPLEX  CONJUGATE 

FEU 

1040 

FEU 

1050 

190 


/ 


1 


I 


c 

FEU 

10G0 

IS=I22*(J-1)+1 

FEU 

1070 

IG=N*(J-2)*1 

FEU 

1080 

IG2=IG+N 

FEU 

1090 

c 

FEU 

1100 

MOUE 

COMPLEX 

CONJUGATE  EIGENUECTOR 

FEU 

1110 

c 

FEU 

1120 

BO  140  1=1, N 

FEU 

1130 

2(IS)=Z(IG) 

FEU 

1140 

2(IS+1)=-2(IGZ) 

FEU 

1150 

IS=IS+2 

FEU 

1 1G0 

IG=IG+1 

FEU 

1170 

IG2=IG2+1 

FEU 

1180 

140 

CONTINUE 

FEU 

1190 

C 

FEU 

1200 

C*»***» 

MOUE 

COMPLEX 

EIGENUECTOR 

FEU 

1210 

c 

FEU 

1220 

IS=IZ2*( J-21+1 

FEU 

1230 

IG=JS+IZ2 

FEU 

1240 

DO  145  1=1,  n 

FEU 

1250 

2(IS)=2(IG) 

FEU 

12G0 

Z(IS-H>=-Z(IG+1) 

FEU 

1270 

IS=IS+2 

FEU 

1280 

IG=IG+2 

FEU 

1290 

145 

CONTINUE 

FEU 

1300 

J=J-2 

FEU 

1310 

GO  TO  135 

FEU 

1320 

C 

FEU 

1330 

£■»***** 

MOUE 

REAL 

EIGENUECTOR 

FEU 

1340 

C 

FEU 

1350 

150 

IS=I22*CJ-1)+N+N 

FEU 

13G0 

IG=N»J 

FEU 

1370 

DO  155  1=1. N 

FEU 

1380 

2( IS-1 )=2( I G  5 

FEU 

1390 

Z(IS)=ZERO 

FEU 

1400 

IS=IS-2 

FEU 

1410 

IG=IG-1 

FEU 

1420 

155 

CONTI HUS 

FEU 

1430 

J=J-1 

FEU 

1440 

GO  TO  133 

FEU 

1450 

C 

FEU 

14G0 

►•WRITE  ERROR  MESSAGES,  IF  ANY 

FEU 

1470 

c 

FEU 

1480 

ISO 

IF  ( IER.NE.O)  CALL  1 

FERTST  (IER.SHFEUEU 

) 

FEU 

1490 

IF  ( JER.EO. 0 )  GO  TO 

1S5 

FEU 

1500 

IER=JER 

FEU 

1510 

CALL  FERTST  (IER.SHFEUEU  1 

FEU 

1520 

1S5 

RETURN 

FEU 

1530 

C 

FEU 

1540 

END 

FEU 

1550 

SUBROUTINE  FBXXMl  (2,H,D,MM, 

I2H.K 

,L) 

FM1 

10 

C 

FM1 

20 

C***-»**-»***«»»**»(HHH»**»»*«*(*{H»#»«*****»**********************<HHMHHHHMt*Ff11 

30 

C 

* 

«FM1 

40 

C«#**»*  THIS  SUB-PROGRAM 

PERFORMS 

THE  1 

FOLLOWING  FUNCTION: 

«FM1 

50 

C 

*  1.  EACKTRANSFORM  THE 

EIGENUECTORS 

OF  THE  UPPER  HESSENBERG*FM1 

GO 

C 

»  MATRIX. 

*FM1 

70 

C 

# 

•FM1 

80 

C*«»***  THIS  SUB-PROGRAM; 

*S  GLOSSARY  OF 

FORTRAN 

NAMES: 

*FM1 

90 

C 

•  2  : 

EIGENUEC 

TORS  I 

DF  MATRIX  A 

*FM1 

100 

c 

* 

H  :  SUB-DIAGONAL  ELEMENTS  USED  FOR  STORING 

BACK- 

*FM1 

no 

c 

* 

TRANSFORMATION  INFORMATION 

ru 

120 

c 

* 

D  :  DETAILS  OF  THE  TRANSFORMATION 

«tN1 

130 

c 

* 

MM  :  NUMBER  OF  COLUMNS  IN  MATRIX  Z 

«FK1 

1 40 

c 

» 

IZH  :  RON  DIMENSION  OF  MATRICES  Z  AND  H 

*>FM1 

150 

c 

* 

K.L  :  SAME  AS  IN  SUBROUTINE  FBKXM1 

*FM1 

1G0 

c 

* 

*FM1 

i?0 

£••****•*•**••*« »***»*#*•:*»«»» »»**•»«  »»•»  »***-:**  Ml 

1E0 

c 

FM1 

1  £0 

DIMENSION  2( IZH* 1 )  *  HCIZH.l).  DC  1 5 

FM1 

200 

DATA  ZERO, ONE/O.O, 1.0/ 

FM1 

210 

LM2=L~2 

FM1 

220 

IF 

(LM2.LT.K)  GO  TO  10? 

FM1 

230 

LTEMP=LM2+!< 

FM1 

240 

DO 

10S  KI=I<»  LM2 

FM1 

250 

M=LTEM?-KI 

FM1 

2S0 

NA=M+1 

FNi 

2?  0 

T=H(MA,M) 

FM1 

ESO 

IF  CT.EQ.2ER0)  GO  TO  10S 

FM1 

2S0 

T=T*D(MA) 

FM1 

£00 

NP2=M+2 

FM1 

£10 

IF  CMP2.GT.U  GO  TO  102 

FM1 

£20 

DO  101  I=MP2,L 

FNI 

330 

D(n=H(I,M) 

FM1 

340 

101 

CONTINUE 

FM1 

3b  0 

102 

IF  (NA.GT.L)  GO  TO  10S 

FNI 

3S0 

TINU=ONE/T 

FM1 

2F0 

E..,  105  j=i,nn 

FNI 

3S0 

G=ZERO 

FM1 

£50 

DO  103  I=MA, L 

mi 

400 

G=G+D( I )«Z( I » J) 

FMl 

410 

103 

CONTINUE 

FNi 

420 

G=G*TINU 

FNI 

430 

DO  104  I=MA,L 

FMl 

440 

Z(I, J)=Z(I. J)+G*D(I) 

FMl 

450 

104 

CONTINUE 

FMl 

4S0 

105 

CONTINUE 

FMl 

470 

10S  CONTINUE 

FMl 

4S0 

10?  RETURN 

FNI 

4S0 

c 

FMl 

500 

END 

FMl 

510 

SUBROUTINE  FBKXM2  CD, Z, K, L. MM, N, 12) 

FM2 

10 

c 

FM2 

20 

c 

• 

«FN2 

40 

c*#***» 

THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

«7M2 

50 

c 

* 

1.  BACKTRANSFORM  THE  EIGENUECTORS  OF  A  BALANCED 

MATRIX 

*7M2 

GO 

c 

* 

*"M2 

70 

c****** 

THIS  SUB-PROGRAMS  GLOSSARY  OF  FORTRAN  NAMES: 

00 

c 

* 

D  :  INFORMATION  ON  THE  DETAILS  OF  TRANSFORMATION 

£0 

c 

# 

2  :  AT  ENTRANCE:  MODAL  MATRIX  TO  EE  TRANSFORMED 

«Ff,2 

100 

c 

* 

AT  EXIT,  TRANSFORMED  MODAL  MATRIX 

!  10 

c 

* 

K  :  ROM, COLUMN  INDEX  OF  STARTING  ELEMENT  TO  BE 

KrKS 

ISO 

c 

• 

TRANSFORMED 

130 

c 

* 

L  :  ROM, COLUMN  INDEX  OF  LAST  ELEMENT  TO 

BE 

TRAMS- 

i 

140 

c 

* 

FORMED 

*FM2 

JSO 

c 

* 

MM  :  NUMBER  OF  COLUMNS  IN  MATRIX  Z 

«FM2 

1G0 

c 

N  :  NUM3ER  OF  ROMS  IN  Z  =  LENGTH  OF  UEC7 

'OR 

D 

*:rT'2 

170 

c 

» 

IZ  :  ROM  DIMENSION  OF  Z 

«fn2 

;so 

c 

» 

«r  M2 

130 

192 


C*************************************  »»••••*•••*«•*•••*•• 

****** **FM2 

200 

c 

FM2 

210 

DIMENSION  2(12,1),  DC  1 1 

FM2 

220 

C 

FM2 

230 

C******  COLUMN  SCALE  2  BY  APPROPRIATE 

FM2 

240 

C*»*»«*  D  UALUE 

FM2 

250 

C 

FM2 

2G0 

DO  101  I  =!<  >  L 

FM2 

270 

S=D( I ) 

FM2 

280 

DO  101  J=l,Mt1 

FM2 

290 

2(1, J)=Z(I, J)*S 

FM2 

300 

101  CONTINUE 

FM2 

310 

C 

FM2 

320 

INTERCHANGE  ROUS  IF  PERMUTATIONS 

FM2 

330 

C»****s  OCCURRED  IN  PB.ALNC 

FN2 

340 

C 

FM2 

350 

IF  (IC.E0.1)  GO  TO  104 

FM2 

3S0 

KM1=IC-1 

FM2 

370 

DO  103  1=1. KM1 

FM2 

380 

I  !=!<-! 

FM2 

390 

JJ=DC II ) 

FM2 

400 

IF  (II.EO.JJ)  GO  TO  103 

FM2 

410 

DO  102  J=  INIM 

FM2 

420 

S=2( I I , J) 

FM2 

430 

2(11 , J)=2( JJ»  J) 

FM2 

440 

2CJJ, J)=S 

FN2 

450 

102  CONTINUE 

FM2 

4G0 

103  CONTINUE 

FMH 

470 

104  IF  (L. EO.ri)  GO  TO  102 

FM2 

480 

LPl=L-!-l 

FM2 

490 

DO  10S  I I=LP1 , N 

FM2 

500 

JJ=D(II) 

FM2 

510 

IF  (II.EO.JJ)  GO  TO  10S 

FM2 

520 

DO  105  J=i, MM 

FM2 

530 

S=2( I I , J) 

FM2 

540 

2( II. J)=2( JJ, J) 

FM2 

550 

2(JJ, J)=3 

FN2 

560 

105  CONTINUE 

FM2 

570 

103  CONTINUE 

FM2 

580 

107  RETURN 

FM2 

590 

C 

FM2 

600 

END 

FM2 

610 

SUBROUTINE  FERTST  (IER.NAME) 

FER 

10 

C 

FER 

20 

30 

C  *  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

*FER 

40 

C  »  1.  PRINT  ERROR  MESSAGE  ARISING  IN  FEUEU  OR  FQRALG 

ROUTINE«FER 

50 

C  » 

«FER 

60 

C»*»**»  THIS  SUB-FR0GRAMF3  GLOSSARY  OF  FORTRAN  NAMES: 

«FER 

70 

C  *  IER  :  ERROR  PARAMETER  UALUE 

*r  ER 

80 

C  »  NAME  :  NAME  OF  THE  CALLING  SUB-PROGRAM 

*FER 

90 

C  * 

*FER 

100 

»***»#«*»»«*:**»#•*«**:-»»**>*****»»***;****»*»-***  *********#**#**»*#******FER 

110 

c 

FER 

120 

DIMENSION  I TYPO. 4),  IBITC4) 

FER 

130 

INTEGER  UARN.UARF, TERM. PRINTR 

FER 

140 

EOUIUALENCE  ( IBIT( 1 ) »t!ARN) ,  ( IBIT (2 ) , WARF ) .  (I3IT(3) 

.TERM) 

FER 

150 

DATA  ITYP/IOHHARNING  .ION  , 10HWARNING(WI. 

10HTH 

FIX) 

,  FER 

160 

1 10MTERMINAL  ,  ION  .  10HNON-DEF INE.  10IHD 

/, IBIT/32. 

GFER 

170 

24, 128,0/ 

FER 

180 

193 


{ 


MON-DEFINED 


TERMINAL 


WARNING (WITH  FIX' 


WARNING 


EXTRACT  *N» 


PRINT  ERROR  MESSAGE 


IERR=IER 

IF  ( I ERR. GE. WARN)  GO  TO  101 

C 

c****** 

c 

IERK=4 
GO  TO  104 

101  IF  CIERR.LT. TERM)  GO  TO  102 
C 

C****** 

c 

IERI<=3 
GO  TO  104 

102  IF  CIERR.LT. WARE)  GO  TO  103 
C 

C***«*» 

c 

IERK=2 
GO  TO  104 
C 

C****** 

c 

103  IERK=1 
C 

C*«***» 

c 

104  IERR=IERR-IBIT ( IERK ) 

C 

c****** 

c 

WRITE  CS, 105)  CITYPCI. IERK). I=1*2)»NAME» IERR. IER 
RETURN 
C 

105  FORMAT  C 1H0, 2A10, 4X. AS, 4X, 12. 8H  CIER  =  .13. 1H)) 

C 

END 

SUBROUTINE  FQRALG  CHS.N. IH. K. L. WRL. WIM. Z. IZ. IER) 

C 

C********«*»*******»*»***»***»»**»*****»»»**********»****************-***FGR 
C  * 

c****** 
c  * 

c  * 

c  * 

c****** 
c  * 

c  * 

c****** 
c  » 

c  * 

c  * 

C******************»***»*»***»»»***  *********»******-***»  *#**»#»*»**«**-»*«2QR 

c 

DIMENSION  HSCIH.N).  WRLCN),  WIMCN),  ZCIZ.N).  T3C2) 

LOGICAL  NTLS 
COMPLEX  23 

EOUIUALENCE  CZ3.T3C1)) 

DATA  RDELP/1S414000000000000000B/ 

DATA  P4/0 . 4325/. P 3/0 . 5/. P7/0 . 7 5/ . ZERO/O . 0/. ONE/ 1 . 0/ 

IER=0 


THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

1.  FIND  THE  EIGENUALUES  AND  EIGENUECTORS  OF  THE  UPPER 
HESSENBERG  MATRIX. 

THIS  SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINE: 

1.  FERTST 

THIS  SUB-PROGRAM^S  GLOSSARY  OF  FORTRAN  NAMES: 

ALL  UARIABLE  NAMES  AND  ARRAYS  ARE  AS  DEFINED  IN  SUBROUTINES 
FEUEU, FBALNC. FBKXM1 . FBKXM2 . 


FER 

ISO 

FER 

200 

FER 

210 

FER 

220 

FER 

230 

FER 

240 

FER 

250 

FER 

2S0 

FER 

270 

FER 

230 

FER 

2S0 

FER 

E00 

FER 

310 

FER 

320 

FER 

230 

FER 

240 

FER 

250 

FER 

2S0 

FER 

370 

FER 

230 

FER 

2S0 

FER 

400 

FER 

410 

FER 

420 

FER 

430 

FER 

440 

FER 

450 

FER 

4S0 

FER 

470 

FER 

430 

FER 

4S0 

FER 

500 

FER 

510 

FER 

520 

FER 

520 

FER 

540 

FOR 

10 

FGR 

20 

■♦FOR 

20 

♦FOR 

40 

♦FOR 

50 

♦  FOR 

GO 

♦FOR 

70 

♦FOR 

GO 

♦  FOR 

SO 

♦FOR 

100 

♦  FOR 

110 

♦FOR 

120 

♦FOR 

120 

♦FOR 

140 

♦FOR 

ISO 

■♦FOR 

ISO 

FOR 

170 

FOR 

ISO 

FCR 

ISO 

FGR 

200 

FOR 

210 

FOR 

220 

FCR 

220 

FCR 

240 

19^ 


c 

FOR 

250 

c****** 

STORE  ROOTS  ISOLATED  BY  FBAU4C 

FCR 

2S0 

c 

FOR 

270 

DO  101  1=1, N 

FOP 

280 

IF  ( I . GE . K . AMD . I . LE . L )  GO 

TO  101 

FOR 

230 

NRL(  I  )=H3(  III) 

FOR 

300 

NII1C I  )=2ER0 

FOR 

310 

101  CONTINUE 

FOR 

220 

IEN=L 

FOR 

330 

T=ZERO 

FOR 

340 

C 

FOR 

350 

£*»***» 

SEARCH  FOR  NEXT  EIGENUALUES 

FOR 

3B0 

c 

FOR 

370 

10a  if  c ien.lt .k)  go  to  123 

FOR 

380 

ITS=0 

FOR 

330 

NA-IEN-i 

FOR 

400 

IENM2=NA-1 

FOR 

410 

c 

FOR 

420 

c***»*» 

LOOK  FOR  SINGLE  SMALL  SUB-DIAGONAL 

FOR 

430 

ELEMENT 

FOR 

440 

c 

FOR 

450 

103  NPL=IEN+:< 

FOR 

480 

DO  104  LL=!<* IEN 

FOR 

470 

LB=N?L-LL 

FOR 

480 

IF  (LB.EO.K)  GO  TO  105 

FOR 

430 

IF  (ADSCH3CLB, LB-1 ) ) .LE.REELP»(ABS(HS(LB-1*L3-1 ) )+A3S(HS(LB> 

LB)FGR 

500 

1  )))  GO  TO  105 

FOR 

510 

104  CONTINUE 

FOR 

520 

C 

FOR 

530 

c**»**» 

FOR 

540 

c 

FOR 

550 

105  X=HS(IEN,  IEN) 

FOR 

5G0 

IF  (LB.EO.IEN)  GO  TO  121 

FOR 

570 

V-HS(NA,NA) 

FOR 

580 

l!-H3(IEN,NA)*H3(NA,  IEN) 

FOR 

530 

IF  (LB.EO.NA)  GO  TO  122 

FOR 

GOO 

IF  (IT5.E0.30)  GO  TO  151 

FOR 

610 

C 

FOR 

G20 

c****** 

FORM  SHIFT 

FOR 

630 

c 

FOR 

640 

IF  (ITS.NE.10.PIND.ITS.NE.20) 

GO  TO  107 

FOR 

650 

T=T+>< 

FOR 

660 

DO  10S  I=K» IEN 

FOR 

670 

HS< I* I )=H3( I» I  )-X 

FOR 

680 

103  CONTINUE 

FOR 

630 

S=AB3(KS(  IEN.  NPI)  )+A35(KS(NA, 

IENM2) ) 

FOR 

700 

X=P7»S 

FOR 

710 

V::X 

FOR 

720 

W=-P4*S»S 

FOR 

730 

107  ITS=ITS+1 

FOR 

740 

C 

FOR 

750 

c**»**» 

LOOK  FOR  TWO  CONSECUTIUE  SMALL 

FOR 

760 

c****»» 

SU3-DI AGONAL  ELEMENTS 

FOR 

770 

c 

FOR 

780 

NAML= I ENM2+LB 

FOR 

730 

DO  103  MN=LB.  IENM2 

FOR 

BOO 

N-NfiNL-NN 

FOR 

810 

2Z=H3(M,m 

FOR 

820 

R=:<-22 

FOR 

830 

S-Y-ZZ 

FOR 

840 

If 


195 


f 


P=(R»S-U)/H3(M+l,m+HS(M,M+l) 

FOR 

C50 

Q=HS ( M+ 1 >  M+ 1 ) -Z2-R-S 

FCR 

630 

R=H3  C  M+2 >  N+ 1 ) 

fcr 

CFO 

S= AES ( P ) +035 ( Q ) +A3S ( 2 ) 

FCR 

6C0 

P=P^S 

FCR 

£90 

Q=Q/S 

FCR 

£00 

R=R/S 

FCR 

£1.0 

IF  (N.EQ.LB)  GO  TO  109 

FCR 

£20 

IF  ( AB3(H3(M.N-1 ) )*(A3S(Q)+A3S( R) ) .LE.RDELP»A3S(P)*C ABS(HS(M-1 * FCR 

£30 

1 

M-l))+ftB3CZ2)+AB3(HS(M+l.M+l))))  GO  TO  103 

FCR 

£40 

103  CONTINUE 

FCR 

£30 

109  MP2-N+2 

FOR 

£30 

DO 

no  i=n?2,ien 

FCR 

£70 

H3(I»I-2)=ZER0 

FCR 

£30 

IF  a.EO.N?2)  GO  TO  110 

FCR 

£30 

H3CI. I-3)=2ER0 

FCR 

1C00 

110  CONTINUE 

FCR 

10 1.0 

c 

FCR 

1C20 

c**»**» 

DOUBLE  OR  STEP  INUOLUING 

ROWS 

FCR 

1(30 

C  ■**»**•* 

L  TO  EN  AND  COLUMNS  M  TO 

EN 

FCR 

1C40 

c 

FCR 

1C  50 

DO 

120  KA=M.NA 

FCR 

IC'SO 

NTLS=KA . NE . NA 

FCR 

1070 

IF  CKA.2Q.M)  GO  TO  111 

FCR 

1020 

P=HSlKA* KA-i ) 

FCR 

IC'SO 

Q=H3(ICA+1 .  KA-1 ) 

FCR 

1100 

R=2ER0 

FlR 

1110 

IF  (NTLS)  R=!-lS(!<A+2>  KA-1 ) 

FCR 

1120 

X= ABS ( P ) +AC3 ( Q ) +ABS ( R ) 

FCR 

1120 

IF  (X.EQ.ZERO)  GO  TO  120 

FCR 

1140 

P-P.'X 

FCR 

1 150 

Q=Q/X 

rc.R 

■ISO 

R=R/X 

FCR 

1 1  ?  u 

111 

CONTINUE 

FCR 

ilSO 

S=S I GN  C  SORT  C P»P+0*Q+R«R ) , P ) 

FCR 

11  so 

IF  (KA.EO.M)  GO  TO  112 

FCR 

1200 

HS ( K A*  K A- 1 ) =-5  *X 

FCR 

1210 

GO  TO  113 

FCR 

!  220 

112 

IF  CLB.NE.M)  HS(KA. KA-1 )=-HS(KA. KA-1 ) 

FCR 

1220 

113 

P=P+S 

FCR 

1240 

X=P/S 

FCR 

1230 

Y=0/S 

FCR 

1 2o0 

2Z=R/S 

FCR 

1270 

0=0/P 

FCR 

1230 

R=R/P 

FCR 

.1290 

C 

FCR 

1200 

c*#***# 

ROW  MODIFICATION 

FCR 

1210 

c 

FOR 

1220 

DO  115  J=KA,N 

FCR 

1220 

P=HS CKO. J)+0*HS( KA+ 1 .  J ) 

FOR 

12.40 

IF  (.NOT. NTLS)  GO  TO  114 

FCR 

1250 

P=pi-R*HS  C  KA+2 » J ) 

FCR 

1220 

HS  ( KA+2 ,  J )  --N3  ( Kft+2 .  J )  -P*ZZ 

FCR 

1270 

114 

HS  ( K  A  >1 ,  J )  =H3  ( K  A  s- 1 ,  J )  -P  -  V 

FCR 

1230 

HS C K A .  J ) -.43 CKO.  J) -P*X 

fcr 

1 2.90 

115 

CONTINUE 

FCR 

1400 

J=I1IN0(  IEN.ICA+3) 

FCR 

1410 

C 

FCR 

1420 

COLUMN  MODIFICATION 

FCR 

1420 

C 

FCR 

1440 

196 


/ 


non  nnn  onr> 


DO  117  1=1. J 

p=;<*H3  c  r ,  k  a  )  +Y*H3  a .  ka+  i ) 

IF  ( .NOT.NTLS)  GO  70  IIS 
P=P+Z2*!-i3  C I » !<A+2 ) 

MS  ( I  >  KA+2 )  =:-!3  ( I ,  Kfl+2 )  -P*R 
1  IS  I  !3 C I ,  Kft+1 )  =H3  ( I ,  Kfl+ 1 ) -P*0 

I-I3CI,I<A)=HS(I,:<A)-P 
117  CONTINUE 

IP  CIZ.LT.N)  GO  70  120 

«.»*»*  ACCUMULATE  TRANSFORMATIONS 

DO  119  I=K»L 

p=;;*2  ( I , KA )  +Y*Z  ( I .  !<A+1 ) 

IP  ( .NOT.NTLS)  GO  TO  113 
P=P+22“Z( I , KA+2) 

2  (I .  Kfi+2 )  =2  (I  ,  K  A>2 )  -P*R 
113  2CI.KA+1 )=ZCI,KA+1 )-P*Q 

Z<I,!CA)=2a.KA)-P 
113  CONTI MOP 

120  CONTINUE 
GO  TO  103 


*45»**» 


ONE  ROOT  FOUND 


121  HSCIEN,  IEN)=X+T 

URL  ( I EN )  =!Ji3  ( 1 EH » I  PM  1 
11  III  ( IEN)=ZER0 
IZN=NA 
GO  TO  102 

•**»*•*  TWO  ROOTS  FOUND 


122  P=(Y-SO*P5 
G=p*p.:-!I 

ZZ=SGR7  C  PCS ( Q 1 ) 

HSCIEN, IEH)=X+7 
><=M3(  IEN,  I  EM) 

H5CNA,  NA>=Y+7 
IP  (0.L7.2ER0)  GO  TO  I2S 


C 

c 

22=P+SIGNC22»P) 
WRLCNA)=)<+2Z 
URL ( IEM ) =MRL ( MO ) 
IP  C 22. ME. ZERO) 
t!irUMA)=ZERO 


REAL  PAIR 


WRLCIEN)=X-W22 


UltH  IEM)=2ER0 

X=NS(IEM,NA) 

R=50RTC:»);+22*22) 

P='/./R 

0=ZZ/R 


C 

C**-***» 

c 


ROW  MODIFICATION 


DO  123  J=NA,N 
ZZ=H3(NA>  J) 

I  !3  ( HA ,  J )  =0  *ZZ+P*H5  C IEN » J ) 
I-13C  IEM,  J )  =0»HS(  IEM,  J )  -P»ZZ 


FOR  1450 
FOR  14S0 
FOR  1470 
FOR  1480 
FOR  1430 
FOR  1500 
FOR  1510 
FOR  1520 
FGR  1530 
FOR  1540 
FGR  1550 
FGR  15S0 
FOR  1570 
FGR  1580 
FGR  1530 
FGR  1E00 
FGR  1G10 
FOR  1S20 
FGR  1S30 
FGR  1S40 
FGR  1G50 
FGR  1SS0 
FGR  1670 
FGR  1S80 
FGR  1G90 
FGR  1700 
FGR  1710 
FGR  1720 
FGR  1730 
FGR  1740 
FOR  1750 
FCR  17G0 
FCR  1770 
FGR  1780 
FGR  1730 
FGR  1800 
FOR  1810 
FGR  1820 
FGR  1830 
FGR  1840 
FOR  1850 
FCR  18S0 
FCR  1870 
FGR  1880 
FGR  1890 
FGR  1300 
FCR  1910 
FOR  1820 
FGR  1830 
FGR  1340 
FGR  1850 
FOR  1SS0 
FGR  1370 
FCR  1880 
FDR  1830 
FGR  2000 
FGR  2010 
FGR  2020 
FGR  2020 
FGR  2040 
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/ 


non 


123  CONTINUE 
C 

C*»***» 

c 

DO  124  1=1, IEN 
ZZ=HS( I , NA ) 

HS( I . NA)=Q*22+P»HS( I, TEN) 
HS( I, 1EN)=Q*HS( I, IEN)-P*22 

124  CONTINUE 

IF  (IZ.LT.N)  GO  TO  122 
C 

C******  l 

c 

DO  125  I=K.L 
Z2=Z( I. NA) 

Z(I.NA)=a*Z2+P»2(I, IEN) 

ZCI. IEN)=Q*2(I, IEN) -P»ZZ 

125  CONTINUE 
GO  TO  122 

C 

C***»*«  j 

c 

126  URL ( NA ) =X+P 
WRL(IEN)=X+P 
WIM(NA)=ZZ 
WIMC  IEN)=-ZZ 

122  IEN=IENN2 
GO  TO  102 
C 

£»****»  p 

C****»»  £ 

C 

128  IF  ( I2.LT.N)  GO  TO  156 
RNORM=ZERO 

KA=1 

DO  130  1=1. N 

DO  123  J=KA. N 

RNORM=RNORM+ABS (HS( I,  J) ) 

129  CONTINUE 

130  CONTINUE 

IF  (RNORM.EQ.ZERO)  GO  TO  156 
DO  145  NN=1 , N 
IEN=N+1-NN 
P=URL(IEN) 

Q=WIN( IEN) 

NA=IEN-1 

IF  (Q.GT.ZERO)  GO  TO  145 
IF  (Q.LT.2ER0)  GO  TO  132 


COLUMN  MODIFICATION 


ACCUMULATE  TRANSFORMATIONS 


COMPLEX  PAIR 


ALL  ROOTS  FOUND,  NOW 
BACKSUBSTITUTE 


REAL  UECTOR 


M=IEN 

HSCIEN, IEN)=ONE 
IF  (NA.EO.O)  GO  TO  145 
DO  136  11=1, NA 
I=IEN-II 
W=HS( I. I)-P 
R=HS(I. IEN) 

IF  (N.GT.NA)  GO  TO  132 


DO  131  J=M, NA 

FOR 

2S50 

R=R+HS(I, J)*HS(J, IEN) 

FOR 

2EG0 

131 

CONTI HUE 

FOR 

2B70 

132 

IF  (l-JirKD.GE.ZERO)  GO  TO  133 

FOR 

2680 

ZZ=N 

FOR 

2690 

S=R 

FOR 

2700 

GO  TO  13S 

FOR 

2710 

133 

M=I 

FOR 

2720 

IF  ( HIM C I ) .HE. ZERO)  GO  TO  134 

FOR 

2730 

T=M 

FOR 

2740 

IF  ( N . EQ . ZERO )  T=RDELP*RNORM 

FOR 

2750 

1-13 ( I,  IEM)=-2'/T 

FOR 

2760 

GO  TO  12S 

FOR 

2770 

C 

FOR 

2780 

c****** 

SOLUE  REAL  EQUATIONS 

FOR 

2790 

c 

FOR 

2800 

134 

X=HSCM  +  1) 

FOR 

2810 

S'=H3(  I*1 , I ) 

FOR 

2820 

Q=(WRLC I  )-P)*(URL( I )-P)HlIM( I)»WIM(I) 

FOR 

2830 

T-(X«S-ZZ«RVa 

FOR 

2840 

HS  ( I ,  I  El'l )  =T 

FOR 

2850 

IF  (A33(X).LE.AB3(ZZ))  GO  TO  135 

FOR 

2860 

KSCI+1,IEN)=(-R-N»T)/X 

FOR 

2870 

GO  TO  133 

FOR 

2880 

135 

HS(I+1, IEN)=(-S-V*T)/ZZ 

FOR 

2890 

13S 

CONTINUE 

FOR 

2300 

C 

FOR 

2910 

END  REAL  UECTOR 

FOR 

2920 

c 

FOR 

2930 

GO  TO  145 

FOR 

2940 

c 

FOR 

2850 

c**»**» 

LAST  UECTOR  COMPONENT  CHOSEN 

FOR 

2260 

c*«»**» 

IMAGINARY  SD  THAT  EIGENUECTOR 

FOR 

2970 

c»*»**» 

MATRIX  IS  TRIANGULAR 

FOR 

2S80 

c 

FOR 

2S90 

137 

M=NA 

FOR 

3000 

c 

FOR 

3010 

c****** 

COMPLEX  UECTOR 

FOR 

3020 

c 

FOR 

3030 

IF  (ABSCHSC IEN»NA) 1 .LE. ABS(HS(NA» IEN) ) )  GO  TO  138 

FOR 

3040 

HS  C NA , NA I =Q/HS (IEN, NA ) 

FOR 

3050 

HSCNA, IEN)=-(HS( IEN. IEN)-P )/HS( IEN,  NA) 

FOR 

3060 

GO  TO  139 

FGR 

3070 

133 

CONTINUE 

FOR 

3080 

Z3=CNPLXCZER0. -HSCNA, IEN ) VCMPLXC  HSCNA, NA)-P. Q) 

FOR 

3090 

IISCNA,  NA)=73C1) 

FOR 

3100 

HSCNA, IEN)=T3C2) 

FOR 

3110 

139 

HSC IEN, NA) -ZERO 

FOR 

3J20 

HSCIEN, IEN)=ONE 

FOR 

3130 

IENt12=NA-l 

FOR 

3140 

IF  CIENM2.EG.O)  GO  TO  145 

FGR 

3)50 

DO  144  11=1, IENM2 

FOR 

3160 

I=NA-I  I 

FOR 

3170 

l!=HS(  I,  I )-P 

FOR 

3180 

RA=ZERO 

FOR 

3190 

Sfi=H5CI, IEN) 

FOR 

3200 

DO  140  J=i1,  NA 

FOR 

3210 

RA=RA+HS C I , J 1 *HS ( J, NA ) 

FOR 

3220 

SA=SA+HSCI, J)»HSCJ, IEN) 

FOR 

3230 

140 

CONTINUE 

FOR 

3240 
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o  o 


141 


c 

C**»-»** 

c 

142 


IF  UJIMO.GI.ZIRO)  GO  TO  141 

ZZ=U 

n-Ro 

0  'SO 

GOTO  144 
|  ]  '■  I 

if  (!!in:i?.r:r.zz,?o'i  go  to  142 

23~a-;?L:<{  -iTO  .  -SO  I  /  CMPLX  ( ! !.  Q ) 

i:ic:,ra)”T3(.n 

IIS'.  J,IZill=T3<2> 

GO  TO  144 


L  v 
’  ~  — > 

CR 

•TO 

FOR 

1.,-? 


SOLUS  COMPLEX  EOLATIONS 


o-:!-!3  ( >  .-s-.il 

V-  :  ;3<  7-:-i » 1  > 

UR- ; C ! ■!.?'_  ( '.  )-?'*( URL f  I  l-PA-RIMC  i  I  )-3»3 

’.'I'  ■  C !-!RL <  I ) -r* 5 «□ 

VI- UI-s-UI 

I C UR .  £0 .  ZERO. I'.r :0 . <J 1 . 10 . ZERO )  UR-RIZLP'-RNCRM* <A3S(M)+A3S<0: 
1  -i0D3:;O-s-G33C  V)-:-003;  ZZ)  1 

Z3--CM.-LX  t !  -iZ-“iVO+G:>S.O>  M»5-ZZ*SA-3»R3 )  'CMPLX  <  UR  >  UI ) 

:  :z>c  r .  r:.~ ',^T3C  1  > 

i « o C  j. »  .-  -.I))  —  1 3 -. 2 ) 

if  (r,03::o.L:-:.;io3(Zzv;-,"i33coi'i  go  to  143 
1 c  7.  .  t-:.o  >  -  (  -go-:  :«:-3  c  7 ,  i  :.i  1  +3»:-:s '  7 . 7  1;  1  n  « 

1  ;oc i  s-i >  ”Z!  1; •=  •. -3.0-: :-;-:s c:.izri)-2-- :-:s <  7 , w.o  1  >  c< 

CO  TO  14  : 

143  CONTINUE 

ZIr-Cn?LX;-R-V-::-,'-IS(  I  •  MAO  .-S-Y--II3C  I  >  ISO)  VCM?LXCZ2>  01 

i  :oc  i +i  *  [:.oi;-T3(  i ) 

i-;3(i+i.:em)"V3{-2) 

144  CONTINUE 


C 

c 

145  CONTINUE 

c 

C-9  S-3  »  »  » 


END  COMPLEX  VICTOR 


END  D  ACXS'JOST  I  TUT  7  GM 
VICTORS  CF  ISOLATED  ROOTS 


DO  147  7-1. M 

IF  ( 7 GI .  X.fiND.  I  .LI  .LI  GO  TO  147 
DO  1 43  J--7. » i  I 

Z(T,.ij:  iisci.j) 

143  COM  i  ■  i"J.\ 

14?  continue 


IF  (L.IO.O)  CO  TO  153 
C 

c 

DO  150  JJ-K.M 
j4:+:< -jj 
M-MIMOM.i.i 
DO  143  7-  X.L 
.-.I^IIf'O 

no  143  :co=:<.n 

ZZ:=ZZ  S-Z  C  7  .  KA )  »HS  CKCI.J! 
143  CONTi HUE 

Z(i. Jl-ZI 


MULTIPLY  3Y  TRANSPORTATION  MATRIX 


t  L.n 

J 

'7  -1 

77 

o 

lU  .  • 

:s.t 

:n 

;.v; 

v 

FCR 

j  • 

r< 

i  ‘  v.  ,* 

„•  • . 

i  * 

n 

;\;;7 

:-o 

•  " 

•  C 

;  i 

— , 

vn 

'  C7! 

-_z 

'■ji 

FIR 

r.  ? 

- 

*. «. 

fcr 

77- 

;  o 

_>  < 

V.  .  \ 

y  i_'i 

FT  R 

?*  i 

:o 

i” 

'■  s 

TO 

. - 3 

j . 

J 

- ) 

i 

j 

;•  'i 

, - , 

l  v.-  .  \ 

TO 

FC  R 

f,4 

,  CR 

-.  0 

;-tr 

0  V 

•  •  3 

-- 

*'  - 

i-  F  R 

* 

-■  *i 

i  i.  .  \ 

'1 

iT’v 

'  !  1 
.  n 

w 

if :: 

_• 

«;o 

i  L  .? 

c_ 

.  r  7 

co 

; 

.  n 

71 

.  L  . ' 

'  n 

ii.? 

f  . 

;  r  * » 
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n  n  n  r> 


non 


FKS 

2?0 

DO  102  II=M,L 

FHS 

280 

I=MP-II 

FKS 

2S0 

DC  I ) =A( I » M-l ) ✓SCALE 

FKS 

400 

H=H+D(I)*D(I) 

FKS 

410 

102  CONTINUE 

FKS 

<20 

G=-SIGN(SQRT (H).D(M)) 

FKS 

430 

H=H-D(M)»G 

FKS 

<40 

D(M)=D(N)-G 

FKS 

450 

DO  105  J=K,N 

FKS 

4S0 

F=ZERO 

FKS 

4?0 

FKS 

4S0 

FKS 

4£0 

FKS 

500 

DO  103  II=M,L 

FKS 

510 

I=t  IP- II 

FKS 

520 

F=F+D(  I )*A( I >  J) 

FKS 

530 

103  CONTINUE 

FKS 

540 

F=rVH 

FKS 

550 

DO  104  I=M.L 

FKS 

530 

ACI, J)=A(I, J)-F*D(I) 

FKS 

570 

104  CONTINUE 

FKS 

580 

105  CONTINUE 

FKS 

5S0 

DO  103  1=1, L 

FKS 

eoo 

F=ZERO 

FKS 

G10 

FKS 

620 

******  DO  30  J=L»M»-1 

FKS 

620 

FKS 

640 

DO  10S  JJ=M, L 

FKS 

J=NP-JJ 

FKS 

ESO 

F=F+D( J )*A( I ,  J) 

FKS 

6?0 

10G  CONTINUE 

FKS 

ESO 

F=F/H 

FKS 

ESO 

DO  10?  J=M.L 

FKS 

TOO 

ACI, J)=A(I, J)-F*D(J) 

FKS 

?!  0 

10?  CONTINUE 

FKS 

720 

108  CONTINUE 

FKS 

?30 

DCM)=SCALE»DCM) 

FKS 

?40 

ACM, M-l )=SCALE*G 

FKS 

?50 

109  CONTINUE 

FKS 

?G0 

110  RETURN 

FKS 

770 

FKS 

?S0 

END 

FKS 

?S0 

202 


I 


SUBROUTINE  GZOC  (N, EU, EUALS, BMAT.CMAT, DMAT, BH. CH. X, Y, NPGRT. PR,  MP, 

MGZC 

10 

IS) 

GZC 

20 

C 

G2C 

30 

40 

c  * 

*GZC 

50 

c*»***»  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTIONS: 

*G2C 

GO 

C  *  1.  OBTAIN  AMD  ST0RI  COMPLETE  INFORMATION  ABOUT 

THE 

*GZC 

?0 

C  *  OPEN-CIRCUIT  IMPEDANCE  MATRIX  IN  PARTIAL  FRACTION 

«G2C 

EO 

C  *  EXPANSION  (PPE)  FORM. 

*G2C 

SO 

C  *  2.  CHECK  GF  JW-AXIS  OR  REPEATED  EIGENVALUES. 

*GZC 

100 

C  »  3.  PRINT  ENTRIES  OF  ZOC.  IF  REQUESTED. 

*GZC 

110 

C  * 

*G2C 

120 

[>»****  THIS  SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINE: 

*GZC 

120 

C  *  1.  G20CFR 

*G?C 

140 

C  *  2.  ****  LINE04  »**•»  LIBRARY  DEPENDENT  ROUTINE 

*GZC 

150 

C  * 

*G2C 

ISO 

C******  THIS  SUB-FROGRAM^S  GLOSSARY  OF  FORTRAN  NAMES: 

«G2C 

170 

C  *  ALL  VARIABLE  NAMES  AND  ARRAYS  AS  DEFINED  IN  SUB-PROGRAM  AMAIN 

«C-ZC 

ISO 

C  * 

*GZC 

130 

£-»-»*«****»*«- «-•***•» *TJ-**  >»S* •»#****»  **  >•>»*  »**********#*-»«*****£;7C 

200 

c 

C2C 

210 

COMPLEX  EUALS < 1 ) ,  EUCKS, ) ,  XCM3, 1 ) ,  Y(MS,  1 )  *  SUM,  BH(M3, 1 ) 

GZC 

220 

COMPLEX  CM. (IIP,  i  ) 

GZC 

230 

INTEGER  ER, TYPE, FR 

GZC 

240 

DIMENSION  EMAT (MS, 1 ) ,  CMATCMP.l),  DMAT(MP.l),  NPORT(l) 

GZC 

£50 

COMMON  /ENOS/  NCAP, NDUS, NRES, NIND, NDCS, NCPRT 

G2C 

260 

C 

GZC 

270 

C«***0BTAIN  THE  INVERSE  OF  THE  MODAL  MATRIX 

GZC 

230 

C 

GZC 

230 

DO  104  1=1, N 

GZC 

200 

DO  102  U=I» H 

GZC 

310 

1C2  S'(I,  J)=CM?LX(0.00,  0.00) 

GZC 

220 

104  Y(I,I)=CMPLXa. 00,0.00) 

GZC 

230 

C 

GZC 

340 

C*****»****»**»*SYSTEM  EEFENDENT  ROUTINE  FOR  FINDING  INVERSE 

OF  A  COMPX  GZC 

250 

MATRIX 

GZC 

3S0 

C 

GZC 

370 

CALL  LINEQ4  (EU, Y,X, 20. M, N, IERR) 

GZC 

280 

IF  ( IERR.NE. 0 )  GO  TO  122 

GZC 

330 

DO  1C3  1=1.  H 

GZC 

400 

CO  103  J=1 , M 

GZC 

410 

U=RZALCEU(I. J) ) 

GZC 

420 

U=AIMAGCEU( I, J) ) 

GZC 

420 

U1=REAL(X( I , J) ) 

GZC 

440 

Ul— AjMAGC.V  I,  J) ) 

GZC 

450 

IF  (AB3CU).LT. 1.0CE-15)  U=0.0000 

GZC 

4G0 

IF  CRDS(U) .LT. 1 . OOE-15)  U=0.0000 

GZC 

470 

IF  (ASSVJD.LT.l. OOE-15)  Ui=0.000 

GZC 

4S0 

IF  (AB3(Ul).LT.l. OOE-15)  U1=0.000 

GZC 

490 

EUCI, J)=CM?LX(U.U) 

GZC 

500 

NCI,J)=CMPLX(U1,U1) 

GZC 

510 

103  CONTINUE 

GZC 

520 

c 

GZC 

530 

C*»*»*  FCRM  THE  TINU«EMAT  FRGDUCT 

GZC 

G40 

C 

CZC 

550 

DO  110  1=1, N 

GZC 

530 

DO  110  J=l. NCPRT 

GZC 

570 

SUM=CM?LX( 0.0000,0. 0000) 

GZC 

5S0 

DO  103  K=1,H 

GZC 

590 

103  SUi'=£UN+X  ( I .  K  ) «DMAT ( !< ,  J ) 

GZC 

E00 

203 


111  Ifc 


BH(I, J)=SUM 

GZC 

610 

110  CONTINUE 

GZC 

620 

C 

GZC 

G30 

C»****FORM  THE  PRODUCT  C*T 

GZC 

640 

C 

GZC 

650 

DO  114  1=1 » NCPRT 

GZC 

GSO 

DO  114  J=1.N 

GZC 

670 

SUM=CMPLX( 0.00, 0.00) 

GZC 

GSO 

DO  112  K=1 , N 

GZC 

8S0 

112  SUM=SUM+CMAT(I,fO*EUCK,J) 

GZC 

700 

CH( I , J) =SUM 

GZC 

710 

114  CONTINUE 

GZC 

720 

C 

GZC 

730 

o****  CHECK  FOR  REPEATED  OR  JW-AXIS  EIGENUALUES! 

GZC 

740 

C 

GZC 

750 

IWARN1=0 

GZC 

7G0 

IUARN2=0 

GZC 

770 

DO  120  1=1. N 

GZC 

7’SO 

U 1 =EEAL ( EUALS ( I ) ) 

GZC 

7S0 

U1=AIMAG(EUALS(I)) 

GZC 

SOO 

J=I+1 

GZC 

S10 

116  IF  ( J.GT.N)  GO  TO  118 

GZC 

C20 

U2=REAL ( EUALS ( J ) ) 

GZC 

S30 

U2=A I MAG ( EUALS ( J ) ) 

GZC 

£40 

AU=AE3(UH-U1) 

GZC 

£50 

AU=AES(U2-U1) 

GZC 

£30 

IF  ( (AU.LT. 1.000E-03) .AND. (AU.LT. 1.00E-08) ) 

IWARN1=1 

GZC 

£70 

J=J+1 

GZC 

E30 

GO  TO  US 

GZC 

£SD 

118  IF  (ABSCUD.GT.1.00E-08)  GO  TO  120 

GZC 

£00 

IUARN2=1 

GZC 

E10 

EUALS ( I )=CMPLX(-0. 1000, U1 ) 

GZC 

E20 

120  CONTINUE 

GZC 

E30 

IF  (IWARN1.EQ.1)  WRITE  (6,124) 

GZC 

E40 

IF  ( IWARN2.EQ. 1 )  WRITE  (6,126) 

GZC 

E50 

C 

GZC 

SSO 

C*****WRITE  THE  INUERSE  OF  THE  NODE  ADMITTANCE  IN  PFE 

FORM,  IF  DESIRED 

GZC 

£70 

C 

GZC 

£30 

IF  (PR.NE.l)  RETURN 

GZC 

£30 

CALL  GZOCPR  (CH, BH, Y. N, NP0RT, DMAT, EUALS, MP, MS) 

GZC 

1000 

RETURN 

GZC 

1010 

122  WRITE  (6,128) 

GZC 

1C20 

RETURN 

GZC 

1030 

C 

GZC 

1040 

124  FORMAT  (1H0.13H**  WARNING  **./lH  , 47HREPEATED  EIGENUALUES,  ANSWERSGZC 

1050 

1  MAV  BE  INACCURATE) 

GZC 

1060 

126  FORMAT  (1H0.13H**  WARNING  **,/lH  , 37H JW-AXIS  POLE 

PRESENT  HAS  EEENGZC 

1070 

1  SHIFTED) 

GZC 

1030 

128  FORMAT  ( 1H0.22HSINGULAR  MODAL  MATRIX  ) 

GZC 

10S0 

C 

CZC 

1100 

END 

GZC 

1110 

SUBROUTINE  GZOCPR  (CHAT, BHAT, X, N5TU, NPORT, DMAT, 

EUALS, MP. MS) 

GZP 

10 

C 

GZP 

20 

c******  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

*GZP 

40 

C  *  1.  PRINT  THE  ENTRIES  OF  THE  OPEN-CIRCUIT 

IMPEDANCE  MATRIX»GZP 

50 

C  *  IN  PARTIAL  FRACTION  EXPANSION  FORM, 

IF 

Kc-QU£5T£D. 

*GZP 

£0 

C  • 

•■GZP 

70 

c******  THIS  SUB-PROGRAM^S  GLOSSARY  OF  FORTRAN  NAMES 

: 

EO 

C  *  ALL  UARIABLE  NAMES  AND  ARRAYS  AS  DEFINE 

D 

IN  S'JB-PROGRAM 

••'GZP 

£0 

20*4 


/ 


1 

I 


I 


c 

*  20C. 

GZP 

100 

c 

* 

•CZP 

110 

£«**•*-»  »**4H»*»h*«»**«»»>«-»****»**#«********«********'*»*************«-»»»«GZP 

120 

c 

G2P 

130 

COMPLEX  CHAT ( M? , 1 ) , EHAT  C  NS . 1 ) , X  C  H3. 1 ) , EU ALS ( 1 ) 

G2P 

140 

DIMENSION  NPORT(l).  DMAKMP,  1 ) 

G2P 

150 

CONNON  /ENOS/  NCAP. NDUS. NRES. NIND. NDCS. NCPRT 

G2P 

160 

WRITE  (S.103) 

GZP 

170 

DO  104  1=1. NCPRT 

G2P 

ISO 

DO  104  J=l. NCPRT 

GZP 

ISO 

WRITE  (6,103)  NPORT ( I ) , NP CRT ( J ) 

GZP 

200 

DO  102  K=1 , NSTU 

GZP 

210 

102 

><(  1 » IO=CHAT  ( I  •  K)*SHAT(!x»  J) 

GZP 

220 

WRITE  (6,110)  (X( 1, IO» EUALS(K) . K=1 , NSTU) 

GZP 

230 

WRITE  (6,112)  DNAT(I.J) 

GZP 

240 

104 

CONTINUE 

GZP 

250 

RETURN 

GZP 

260 

c 

GZP 

270 

103 

FORMAT  ( 1H1 , cSHOPEN  CIRCUIT  IMPEDANCE  MATRIX) 

GZP 

2S0 

103 

FORMAT  UX.SHZC, IX. 12, 1H. , IX. I2.2H):,/1H  , 12X, 7HRESIDUE, 27X, 

10HEIGGZP 

290 

1ENUALUZ ) 

GZP 

300 

110 

FORMAT  (1H  ,  5X,  £12.5,  2H-J-J,  E12 . 5, 4X.  E12. 5,  2H+J,  El 2. 5) 

GZP 

310 

112 

FORMAT  ( 1H0, SHCONSTANT=, E12. 5) 

GZP 

320 

c 

GZP 

330 

END 

GZP 

340 

SUBROUTINE  HORDR1  ( NFREQ, NSTU, BHAT, CHAT, EU. H, N2FREQ. DMT, 2S, 2S1 , LOSHOl 

10 

IRC. NET. NZT1 , MIX, PHASE. MP, NS) 

HOI 

20 

c 

HOI 

20 

C*****»»**»*»*************»»***»»-»***»*»»»****»»»»»***«*»********»****»«H01 

40 

c 

■» 

•HOI 

50 

C******  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOW  IMG  FUNCTION: 

*H01 

£0 

C 

*  1.  CONPUiE  THE  FIRST-ORDER  TRANSFER  FUNCTION  AT  EACH 

•HOI 

70 

C 

*  POSITIUE  AND  NEGATIUE  INPUT  FREQUENCY  UALUE . 

•  HOI 

SO 

c 

•HOI 

90 

C ******  THIS  S'JB-PROGRAMFS  GLOSSARY  OF  FORTRAN  NAMES: 

•HOI 

100 

C 

*  NFREQ  :  NUMBER  OF  POSITIUE  INPUT  FREQUENCIES 

•KOI 

no 

c 

*  NSTU  :  NUMBER  OF  STATE  UARIA3LES  (CIRCUIT  C0MPLEXITY«H01 

120 

c 

*  H ( I ,  J )  :  I-TH  PORT  FIRST-ORDER  TRANSFER  FUNCTION 

UALUE«H01 

130 

c 

*  AT  Hl(J)  FREQUENCY  UALUE 

•HOI 

140 

c 

*  ALL  OTHER  URRIAELE  NAMES  AND  ARRAYS  AS  DEFINED  IN 

•HOI 

150 

c 

»  SUB-FROCRAM  AMAIN 

•HOI 

160 

c 

•HOI 

170 

C***********************»*******»*o-i**********»*******»*»»«**»***********H01 

180 

c 

HOI 

190 

COMPLEX  SUM.S. EU( 1 ) , CHAT (MP, 1 ) »  BHAT ( MS, 1 ) , H(MP» 1 ) • TH 

HOI 

200 

DIMENSION  DMT(MP.l).  NFORT(l) 

KOI 

210 

COMMON  /COB^  111(10).  AMP(  10 ) .  TH(  10 ) .  LUNIT 

HOI 

220 

DIMENSION  PHASE (5) 

HOI 

230 

COMMON  /01S/  NCONT ( B2) • JCONT ( 10 ) 

HOI 

240 

COMMON  /ENOS/  NCAP. NDUS, NRES, MIND. NDCS. NOUT 

HOI 

£50 

c 

HOI 

£60 

c******  FORM  P03ITIUE  AND  NEGATIUE  FREQUENCY  ARRAY  FDR  ANALYSIS 

HOI 

270 

C 

HOI 

230 

DO  103  1  =  1 » NFREQ 

HOI 

230 

K=NFniG+I 

KOI 

300 

PHASE;  I  )=3.1415SHS54*PKASEa)/130. 0000 

HOI 

310 

TH( I )=CM?LX( 0 . 0000, PHASE ( I 1 ) 

HOI 

220 

th(  :  =cm?l:<(  o  .0000.  -phase  ( 1  > ) 

HOI 

330 

AMPCIC  )=AMP(  I ) 

HOI 

340 

105 

U1(!0=-U1(I) 

HOI 

350 

205 


1 


c 

OBTAIN  THE  FIRST-CRBER  TRANSFER  FUNCTION  AT  EACH  FREQUENCY  PDINT 
C 

DO  140  L=l. NFREQ 

IF  (LUNIT.En.2H  HE)  111=2. OOOOC»3. 1415323=4*211 CL) 

S=CM?LX( 0.00. UI) 

DO  125  I=l,NOUT 

SUM=C!1?LX(0.00»  0.00) 

DO  110  !(=i,  NSTU 

no  eun=sun+ckat(I»:<?«d:-:atc:<.  d/cs-euco  ) 

d:-;at=emt  c  i  ,  i  ) 

GO  TO  (113, 1E0> 153) *  NET 

115  H( I* L)  =  (SUM+Ci'irL:<(EHAT»  0. 0C00 )  VCMFLXCZ3, 0. GOO) 

GO  TO  130 

120  H(I»L)=( SUN+CKPLX C  DHAT ,0.0000)) *23*3 

GO  TO  130 

125  HC I .  L  )  =  (  SUN+CNPEH ( CHAT,  0 .  OCOC )  )'Z3/3 

130  HC I » NFREO+L ) =CC)  I  JO ( H ( I » L ) ) 

135  CONTINUE 
C 

140  CONTINUE 
C 

£>****  COMPUTE  RESPONSE  DUE  TO  SECOND-GENERATOR,  IF  PRESENT 
C 

IF  (MI)!. ME.  1 )  GO  TO  175 
IN?2=NC0NT(LGSRC ) 

N2F RE0=2»NF REQ 
BO  170  1=1 , NOUT 

SUM=CMPLi<( 0.0000,  0.C000) 

DO  145  IC=1,  NSTU 

145  £'JM=SUri+CHAT(  I,!0*3HAT(!(,  INP2  V(S-ZUO< ) ) 

d:-:at=dntci,  inp2) 

GO  TO  (150,  155,  1G0),  NET'. 

150  H(  I  >  f i'FREQ )  =  ( SUM+CMPLX ( DHAT ,0.000 )  )/CM?LX(ZSl  ,0.0000) 

GO  TO  165 

155  H ( I , NFREQ )  =  < SUM+CMPLK (DHAT,  0.000) )»Z31«3 

GO  TO  1G5 

160  H (I » NFREQ )  =  ( SUM+CMPLX ( DHAT , 3 . 000 ) ) /ZS ! '3 

1 S3  H ( I , N2FRE0 ) =COM J3 ( W( I , NFREQ ) ) 

170  CONTINUE 
175  RETURN 
C 

END 

SUBROUTINE  KCRDR2  ( NFREQ,  NSTU,  NNZLEM. EU.  DHAT, CHAT, H. H2,  N2FREQ,  W2. 
1ICS. TEMP, DMT, N27RPT, FCU, NPOUT, MP.N3)  722 

C  722 

C  « 

THIS  SUB-FROGRAM  FERFCRM3  THE  FCLLCUI73 


c  » 

c  * 

c  * 

c  * 

c**»**» 

c 
c 
c 
c 
c 
c 


FREQUENCY  L AGUES. 


H2 ( I , J ) 
U2(  I ) 
N2FRPT 


THIS  SU3-PRC0PA"~5  GLOSSARY  CF  FCR 
!-“;•!  PORT  SECO" 
VAGUS  iTT  FREGE: 

i-t;i  frsgeenzy 

ORDER  SPECTRE;) 
TOTAL  i  :E"2ER  Or 
IN  THE  GECDND-C 
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CR.ER  v; 
v  :'2(ji 


KOI 

230 

HOI 

270 

KOI 

23) 

KOI 

2  GO 

KOI 

400 

KOI 

4- o 

KOI 

420 

KO*. 

‘■20 

YU; 

443 

cr 

r.w  „ 

KZ- *: 

430 

1/ 

473 

/'  —  o 

j-,f“  * 

Y  w  J 
-  ■; 

fO;. 

51. 3 

K~  l 

t"  n 

K 21 

523 

K  Z  .* 

12  3 
54  3 

i  : 

52  0 

5  20 

. 

570 

KZ'A 

t  1 

;.;5* 

52) 

KC;. 

C  13 

r.rh 

CIO 

!*,Z 

CEO 

Hzi 

(2) 

G40 

K".  1 

CEO 

k  r .. 

CIO 

kt:. 

LEO 

CEO 

i*:5: 

CC  3 

K  3 

:  •;  o 

KDi 

713 

lOl 

7  2  3 

KCi:. 

723 

7  40 

.1 

75  3 

• .  _■ .. 

723 

*• 

723 

; 

7  R  3 

10 

:  j 

40 


*:  ; 

ro 

:ngt;on: 

*: 

CO 

FUNCTION  VALUES  A'i 

* 

~  .3 

;\n 

niSD  i  ii. —AT  ^  —  iiV*  w  i 

i.  ;• 

j  2 

23 

<• ; 

o 

f.  0 

r.  ;■ 

•“  j 

.  C  3 

S3: 

*  , 

■  ~  ; 

.10 

UiEEFER  FUNCTION 

^ . 

~  "> 

;.) 

*: ! 

— , 

:ar:;:3  :n  ~;-:e  secc 

iD—i:  i 

r 

_ (  _ _  _ 

i ' 

-  > 

_  ■' 

|  J..  ,ii3  r.iTlnis.iU 

.* 

'REM 

<. ; 

■  '3 

;-'0 

<0 

8 

P 


d 


C  *  FCUCZ)  :  I-7H  FFEC'-'ENCY  CCNSINATZCN  CODE 

ISO 

C  »  S3C20.)  :  SECCN2-C2EE2  CUFFEtY  SCC2CE  DUE  TO  THE 

L-TH 

«H02 

ISO 

C  *  .r?  t»  cf'rvjj 

4JHG2 

200 

C  a  n’_L  0THE7  •JZ.Zir-.2LZ  Kr.MES  ft.ND  fiFFRYS  RS  DEFINED  IN 

c-KG? 

£10 

C  a  S'JD-FFCGFfiN  fiN.qXii 

«K02 

£20 

c  •» 

*KC2 

£30 

£40 

C 

KG  2 

£50 

3N7EGE2  FCUCI) 

HO  2 

Ea  -> 

CC"?LZH  EYN.S.EUCINDKY’CKS,  1 ) . CFRTCK?,  1),H(K?,  1),::2(M?.  1) 

KGS 

£70 

ccnflex  CCC7 S3 ) , vz: ;? cr.?,i),c?,s3» ss.tn 

HO  2 

ccO 

BZKZNSICN  U2(  1  > ,  EN7<M?.  1 ) 

KG? 

£30 

CCXX5N  /00V  M7VrS-;i0>,n:C0.D> 

KG° 

300 

ccf.f.dn  /co3</  *.o> .vmclo.lunzt 

K02 

310 

ccTicon  ✓ois/  ;:cc'rrcc2)- jcccrcio) 

K02 

320 

ccnncm  / ends/  nov>  ncuj.  n.tz 3,  mind,  megs,  rccs 

330 

E,Y.7>  ML/EXML/- 

K02 

340 

:;=o 

K02 

330 

M£FCIC=2*NFFZa 

KG? 

zso 

C 

HO  2 

370 

C«**a»;;';r '  IfiLIZY 

HO  2 

330 

C 

KG? 

330 

re  1. Co  z=i,r;:c3 

HO  2 

400 

:  03  C.TC2  •: : )  -cr ;?u<  c  0 . 0  0 ,  c .  c  0 ) 

K02 

410 

c 

KZ2 

<20 

CCKPLITE  SECGND-C2DE7  72.YS3FER  FACTIONS  ftT  SACK  rSZO'JSSCY 

COMBI 

KG'3 

430 

C 

KC2 

440 

ro  i£3  xi=:»N2“no 

HO  2 

<50 

EC  153  JJ=ZI,M2F;i£3 

u-^to 

430 

ECM-lilCin+liiCJJ) 

KG? 

470 

KG  2 

430 

KECC-EUM 

H02 

4S0 

r  CUC!C  '=1  C*I  I+JJ 

HO  2 

coo 

IF  (’.liNITcEQ.EH  HZ)  CJN=2. C00300*3. 1<I522354»C)41  ( II )+«!( JJ) ) 

KG? 

510 

e=c;;?l:;co.o3,cch; 

KC2 

G20 

c 

KG3 

530 

FC.“N  CICCNE-CTEIF  CUFFIN'  SGUFCE  UEC'CF 

HO  2 

540 

C 

KG2 

550 

DO  1C  3  L---1 .  ISINEZEM 

KG'3 

ECO 

L3=3*CL-I  )->-N,-2U7+2 

KG  2 

570 

ZCCN1=MCCM7CL3'1 

KG2 

530 

_  O  1  ) 

KC? 

5S0 

“r;EIi<=wCGNT  (L ; 

K02 

GOO 

GO  TO  (110.  US,  ICO,  125),  INDEX 

KG  2 

E10 

C 

K02 

G20 

C »«*-»»  NCNLINEfi?  CA2ACITIC-  5C3F3E 

KC2 

G30 

C 

L-.*VO 

C40 

110  EFC2 C *_  1  =H ( I CCNi ,  1 1 ) *H C  ICON? .  J J ) »A I ( L .  2 ) *S 

KG  2 

G50 

GO  TO  130 

KG.? 

GSO 

C 

KG? 

C70 

0»***  NCNLZNEAF  IHEUCTIUE  CCUTCE 

KG? 

G30 

r* 

KC2 

£30 

115  IF  (E'JM.EO.O.DO)  GO  TO  130 

KG  2 

700 

E  _r°  i  i '  :cc:;i ,  :z ;  *nc  icon?.  jj>*aicl,  2vs 

K30 

710 

CO  TO  130 

K02 

720 

C 

KG3 

7  30 

c *#-»»-»  mml : :sZr.^  vz?z>-izz':7  zczzzz 

KG? 

740 

c 

KC2 

750 

loo  r ioo)i ’ ,  r :  ;«■:•:(  zoom ,  jji-akl.  3) 

KG3 

7G0 

ec-::; ;  :o;:o.  z:  iccnz, jj:  ~aicl,4) 

KC2 

770 
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i  /a. oo 

SRC2(D=+(SP+SQ+SS) 

GO  TO  130 

c 

C #***-*  NONLINEAR  RESISTIUE  SOURCE 
C 

125  5RC2(L)=H( ICONl. II )*H( IC0N2.  JJ)*AI(L»  2) 

130  CONTINUE 

c 

c*****  form  zocc  si+sa  ) 
c 

DO  140  J=1,NCS 
DO  140  M=l>  NCS 

SUM=CMPLX( 0. 00.  0.00) 

DO  135  L=1 . NSTU 

135  SUM=SUM+CHAT<J,L)*BHAT(L.M>/<S-E'KL) ) 

DHAT=DM7( J.M) 

TEMP ( J.  M )  =SUM+CMPLX ( DHAT •  0. 0000 1 
140  CONTINUE 
C 

C*****  OBTAIN  SECOND-ORDER  TRANSFER  FUNCTIONS 
C 

DO  150  J=1 » NCS 

sum=cmpl:<  c  0.00,0. 00  > 

DO  145  M=1.NNELEM 

M3=3»CM-1)+N?G'JT+1 
ICON=SSCDNT  U13) 

145  SUM=SUM+TEMP  C  J. iC0N)*SRC2(M) 

H2(J»IO=SUM 

IF  ( (NTYPEC J) .  EO.NL) .  AND.  (D'JM.EQ.  00. 00 ) )  H2CJ,K)=0.00 
150  CONTINUE 
C 

155  CONTINUE 
NHF RPT =K 
RETURN 
C 

END 


C 

C« 

c 


ICS,  TEMP. DMT. KK , FCU. NPOUT, MP, MS ) 


THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

1.  COMPUTE  THE  THIRD-ORDER  TRANSFER  FUNCTION  UALUES  AT 
EACH  POSITIUE  COMBINATION  OF  THREE  POSITIUE  AND 
NEGATIUE  INPUT  FREQUENCIES  TAKEN  AT  A  TIME. 


*T 


c  * 

c  * 
c  * 
c  * 

(;»»»««» 
C  * 

c  * 
c  * 
c  * 
c  * 
c  * 
c  * 
c  • 
c  » 
c  * 


THIS  SUB-PROGRAMFS  GLOSSARY  OF  FORTRAN  NAMES: 

H3CI.J)  :  I-TH  PORT  THIRD-ORDER  TRANSFER  FUNCTION  UAL 
AT  FREOUENCY  M3(J> 

J-7H  POSITIUE  FREQUENCY  UALUE  APPEARING  IN 
THE  THRD-ORDER  SPECTRUM 
113 ( J )  FREQUENCY  COM3 I NAT 'ON  CODE 
THIRD-ORDER  CURRENT  SOURCE  DUE  TO  L-TH 
NONLINEAR  ELEMENT 

ALL  OTHER  UARIA3LE  NAMES  AND  ARRAYS  AS  DEFINED  IN 
SUB-PROGRAM  AMAIN 


W3(  J) 

FCU ' J ) 
SRC3(L) 


- 


03 

730 

03 

7S0 

03 

COO 

■iO 

S10 

02 

£20 

03 

£20 

02 

S43 

03 

S50 

0° 

£30 

02 

070 

02 

£30 

1° 

£S0 

w2 

SCO 

02 

010 

02 

EDO 

“:Q5 

£30 

o5 

£40 

02 

£50 

02 

£33 

02 

£70 

02 

£30 

*  .5 

£30 

02 

1CC0 

02 

1C  10 

02 

1C20 

22 

USD 

03 

1C  40 

O'3 

1330 

r>o 

1C30 

02 

:rro 

03 

:cso 

02 

H’SO 

02 

1100 

02 

1110 

02 

1150 

0:2 

1130 

02 

1140 

02 

1150 

03 

:o 

j3 

EG 

03 

30 

03 

40 

-o 

SO 

03 

eo 

03 

70 

03 

£0 

03 

SO 

O’O 

100 

UJ 

110 

03 

iso 

0  2 

iso 

03 

140 

03 

*  D'J 

iso 

03 

170 

02 

ICO 

0  0 

ISO 

02 

i'.  u  0 

Cl*? 

£10 

nn 
u  J 

aao 

208 


INTEGER  FCU(l) 

COMPLEX  EL'M , S. EU  U ) , EHAT ( MS  > 1 ) .  CHAT ( MP.  J  ) ,  HI  ( MP .  1 ) .  H2 ( MP.  1 ) ,  SR 
15).  TEMP  ( MP.  1 ) ,  H3  C  Mi? .  1 ) .  G3 1 ,  G32.  G23.  G3-> .  GH3 1 .  G232.  G233 ,  G234 .  TH 
DIM  EM'S  I  DM  U3<1).  DMTCNP.  1) 

COMMQM  ✓  OOl'  f:TYPE(iO),A:aO,9) 

COMMON  /C03/  l-Jl  ( 10) .  AMPC 10) >  7HC 10). LUNIT 
COMMON  .'01G'  NCONT CS2)  > J0ON7 (10) 

COMMON  /ENOS-''  NOAP. NDV5.  NRE3. N1ND.  NDCS. NC3 
DATA  NL'2HNLy 
KX=0 
C 

C***»*  INITIALIZE 
C 

EO  105  1  =  1 .  NICS 
1G5  SRC3C I  )=CNPL!<(  0 .00.0.00) 

C 

C •****•»  COMPUTE  THIRD-ORDER  TRANSFER  FL’NCTICN  AT  EACH  FRECUENCY  COMB 
C 

DO  155  1=1.  NFR 
EO  155  J=i*NSF 
EO  153  !C=J.  N2F 

E'JM=;!ia)+Ul(J)+l!l(!0 
IF  (COM. LT. 0.00)  GO  TO  155 

uk=:c:c+i 

M3(.\X)=0LIM 

fcuci;:o=ioo«i+ic»j+:< 

IF  ( LUNIT. E0.3!-i  HZ)  DL'M=2. 0000*3. 1415S2G54»DUM 
E=OK?LX (  0. 00. DUM) 

IEUM— C 1-1  ;*NHF-I*(  1-1  )-'2 

ii=:dum*j 

I2=ItUN+X 

J 1 - C  J- 1 > - N2F- U»  C  J- 1 ) /2+K 

c 

C*****  FORM  NONLINEAR  CURRENT  SOURCE  UECTOR 
C 

CO  1E0  L=l»  NNELEM 

L3=3  * ( L- 1 )  +NPCJ7  -i-2 

ic2=NC0NT (L3+1 ) 

G3i=Hl ( 1C  1 .  I  )*H1  f.  IC1.  J)*H1(  ICl.K) 

G231=:il(ICl.  I  :*H2(IC1.  J1)+H1(IC1,  J)*H2( IC1. I2)+H1< IC1.K) 
1  IC1.I1) 

G22i=2.  0000«G331-'3. 00000 
I NDZX= JC0N7 ( L ) 

GO  TO  (110.115.120.125).  INDEX 
C 

O****  NONLINEAR  CAPACITIVE  SOURCE 

C 

110  SRC3(L)=(G31«AICL.3)+G231*AItL.2))*S 

GO  TO  130 
C 

NONLINEAR  INDUCTIVE  SOURCE 
C 

115  IF  (DUN. EO. 0.00)  GO  TO  130 

SR33C_)  =  :G31«ftI(L.3)-i-G23:«AICL.2>)/'S 
GO  TO  130 
C 

C*«h***  NONLINEAR  DEPENDENT  SOURCE 
C 


K03 

230 

HQ3 

240 

:K03 

250 

H03 

250 

K03 

270 

H03 

230 

H03 

290 

H03 

300 

K03 

310 

n03 

320 

H03 

330 

K03 

340 

K03 

350 

K03 

3S0 

K03 

370 

h‘03 

3S0 

H03 

390 

H03 

400 

H03 

410 

HD3 

420 

K03 

430 

KD3 

440 

H03 

450 

HO  3 

4S0 

K03 

470 

H03 

430 

K03 

4S0 

K03 

500 

HD3 

510 

H03 

520 

K03 

530 

H03 

540 

H03 

550 

M03 

5S0 

K03 

570 

K03 

530 

H03 

590 

K03 

GOO 

H03 

G10 

K03 

E20 

H03 

B30 

H03 

G40 

K03 

G50 

HD3 

GGO 

H03 

B70 

K03 

G30 

H03 

G90 

H03 

700 

K03 

710 

H03 

720 

H03 

730 

K03 

740 

K03 

750 

K03 

7G0 

H03 

770 

K03 

7S0 

KC3 

730 

H03 

SCO 

H03 

S10 

K03 

S20 

209 


r 


120  G232=H1CIC2, I)*H2(IC2, Jl)+HiaC2»J)*H2(IC2. IH)+Hl(IC2.fO  *H2  C  HQ3 

1  IC2.I1)  K32 

G233=H1  ( IC1  >  I )*H2C IC2,  JD+HK1C1 » J)*H2C IC2. 12)+H1(IC1. K )*H2(K03 
1  IC2.I1)  K03 

G234=H1(IC2, I)*H2(IC1,  JD+HKIC2.  J)*H2( IC1 . 12)+H1  (IC2, K)*H2(h03 
1  ICl.Ii)  K33 

G32=H1 ( IC2. I )*H" (IC2. J)*Hi ( IG2. K)*AI (L, ?)  K03 

G33=CH1(IC1. 1)*H1C  IC1.  J)«H1CC2,!<)+H1CIC1,  J)*H1 (IC1 , K )*H1 ( ICHD3 
1  2.I)+H1CIC1.:C)*H1(IC1.I)*H1CZC2,J))*aicl,8)/3.0000  K03 

G34=(H1(IC1,  I)*Hl(IC2.J)»Hl(IC2.!<)+Hi(ICl.J)*Hl(iC2.K)»Hi(ICHC'3 
1  2.I)+Hl(ICl.K)«HlCIC2.lJ*HKIC2,J))*AI(L.9)/3.000  K03 

G231=G231*AI (L> 3 *  KGS 

3232=2. 0000*G222»AI CL. 4V3. 00000  K03 

SRC3  ( L )  =G23i  +G232+  ( G233+G234 )  *A  1 C  L ,  3  )  /3 .  00  +G3 1  »AI  ( L .  S )  +G32+G.-, 03 
1  33+G24  KC-3 

GO  TO  130  K03 

C  K03 

C*****  NONLINEAR  RESISTIUE  SOURCE  K03 

C  K33 

125  SRC3CL )=G31*AI (L»  3)+G231*AI (L»  2)  K03 

130  CONTINUE  K03 

C  K03 

O*-***  FORM  20C  (  S1+S2+S3  )  KC3 

C  KC3 

DO  140  JJ=1 . NCS  K03 

DO  140  (1=1.  NCS  K03 

SUN=CMPLX ( 0 .00.0.00)  KC3 

DO  135  L=1 . NSTU  KGS 

135  SUN=SUM+CHATCJJ.L)*BKAT(L.M)/(S-EU(L))  K03 

BKAT=D(1T(JJ ,M)  HO 3 

TEN? ( J J ,  (1 )  =SU(1+CNPLX  ( DHAT ,0.000)  K03 

140  CONTINUE  KQ3 

DO  150  JJ=1, NCS  KQ3 

SUM=CNPLX 10. 00. 0.00)  KG 3 

DO  145  M=l, NNELEM  K03 

M3=3«(M-1)+NP0UT+1  K03 

IC0N=NC0NT(N3)  KGS 

145  SUn=SUt1+TEt1PlJJ,  IC0N)«S.RC3(M)  K03 

H3(  JJ,  KK)=5'JM  K03 

IF  C (NTYFECJJ).EO.HL). AMD. CDUM.EQ. 0.00))  H3( JJ,KK)=0.00  K03 

ISO  CONTINUE  K03 

C  HO  3 

1S5  CONTINUE  K03 

RETURN  KQ3 


SUBROUTINE  IWR1ST  (NFREQ, HI, NP0RT. I AP, NOUT, MP) 


C******  THIS  SUB-PRQGRAN  PERFORNS  THE  FOLLOWING  FUNCTION: 

C  *  1.  PRINT  THE  FIRST-ORDER  TRANSFER  FUNCTION  AND  OUTPUT 

C  *  UOLTAGE  UALUES  AT  EACH  POSITIUE  INPUT  FREQUENCY  UAL 

C  *  AT  THE  REGUESTED  PORTS. 

C  * 

c******  THIS  SUS-FROGRAMfS  GLOSSARY  OF  FORTRAN  NAMES: 

C  *  H1CI.J)  :  UPON  ENTRANCE:  I-TN  PORT  FIRST-ORDER  TRANE 

C  *  FUNCTION  UALUE  AT  Hl(J)i  UPON  EXIT:  I-TH  F 

C  *  GUTPUT  UOLTAGE  UALUE  AT  FREQUENCY  N 1 ( J ) 

C  *  IAP  :  PRINTING  OPTION  FLAG  UARIAELE 


KQ3 

1140 

K03 

1150 

K03 

1 1G0 

K03 

1170 

H03 

1 1E0 

HG3 

11S0 

K03 

1200 

K03 

1210 

K03 

1220 

K03 

1230 

HO  3 

1240 

H03 

1250 

H03 

12S0 

K03 

1270 

HO  3 

1230 

IHl 

10 

1  Vi  A 

20 

30 

*1111 

40 

*■'1111 

50 

*:ui 

GO 

:  *iui 

70 

*r.n 

CO 

*1111 

SO 

*  m  i 

100 

:r  »:ui 

110 

'7*  I  ill 

120 

*1111 

130 

*1111 

140 

ALL  OTHER  USRIABLE5  ISSUES  AND  ARRAYS  AS  DEFINED  IN 
SUB-PROGRAM  AMAIN. 


DIMENSION  NPC.RT  ( 1  ) 

COMPLEX  NICK?, 1),TH 

COMMON  /003/  HI < 10) , AN?( 10) , THC 10) »LUNIT 
COMMON  /IN03/  NCfiP.NDU3.NRES, KIND, NBCS.NC3 
C 

CHECK.  IF  RESPONSE  IS  TO  EE  PRINTED  AT  ALL  EXTRACTED  PORTS 
C 

IF  (IAP.EQ.l)  GO  TO  105 
L=2 

K=NOUT 
GO  TO  110 

ICS  L=i 
IC=NCS 

C 

PRINT  THE  FIRST-CREEP  "TRANSFER  FUNCTION  AND  RESPONSE  AT  EACH 
C>*-**»  OUTPUT  FORT  AND  FRECUENCY 
C 

110  DO  130  I=i,NFRSQ 

WRITE  (0,133)  I. Ml ( I ), LUNIT 
WRITE  (0,140) 

WRITE  (0,145) 

DO  123  J=L, K 

IO'JT=N?ORT(  J) 

ANnGN=CAD3CHl ( I OUT .1)5 
U=-REAL(H1CI0UT. I)) 

U=-AIMAG(H1 ( TOUT , I ) ) 

Hi ( IOUT , I ) =AMP ( I ) *H1 ( IOUT, I ) *CEXP ( TH ( I ) ) 

Y(MAG=CAS3 ( HI  ( IC'JT,  I ) ) 

YL'=-REAL(H1  ( IOUT ,  I ) ) 

YU=-A I MAO ( H 1 ( I OUT,  I ) ) 

IF  (AMAGN. EG. 0.0000)  GO  TO  115 
AEB=20. 0 0  0*ALCG 1 0  C AMAGN ) 

FHASE= AT  AN2  (YU,  YU) '‘130. 000/3. 141 5S2S54 
GO  TO  120 

115  AD3=-1 . 00E+30 

FKAS£=0. 00000 

120  WRITE  (0,150)  IOUT, U, U, AMAGN, ADB, YU, YU, YMAG, PHASE 

125  CONTINUE 

130  CONTINUE 
RETURN 

C 

135  FORMAT  ( 1H0, 12HFIRST  ORDER: , 15X, 11 HFREOUENCYt  ,I1,5H  )=  ,E10. 

1,  A3) 

140  FORMAT  (1H0.34X, 1PHTRANSF ER  FUNCTION, 40X, 14H0UTPUT  U OUTAGE) 

143  FORMAT  (//IX, SH  PORT  ,8X, 4KREAL.8X, SHIMAGINARY, SX, SHMAGNITl 
IX, SH20L0G  MAG, 9X, 4HREAL, 3X, SHINAGINARY, SX, 9HMAGNITUDE, SX, 5HPHP 
2, 5X,2HN0, 1 14X, 3HDIG, /, 1H  , 3X,4(1H. ) . BX. 57C 1H. ) . 3X, 53C 1H. ) ) 

150  FORMAT  (1H  , 4X. 12, 4X, 7(3X. E12. 5 ) , 3X. FT. 2) 

C 

END 

SU3R0UTINE  IWR2ND  ( NFREO , NEFRPT . H2, NPCRT » I2FC,U2. IA?,NDUT,MP) 


C**»**»  THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 


*IMI 

150 

«Ti4i 

ISO 

*IW1 

170 

►**IU1 

180 

IWl 

130 

IM1 

200 

IWl 

210 

I  Ml 

220 

IWl 

230 

IWl 

240 

IWl 

250 

IWl 

2S0 

IWl 

270 

IWl 

2S0 

IWl 

230 

IWl 

300 

IWl 

310 

IWl 

320 

330 

IWl 

240 

IWl 

350 

IWl 

350 

IWl 

270 

IWl 

2S0 

IWl 

330 

IWl 

400 

IWl 

410 

IWl 

420 

IWl 

430 

IWl 

440 

IWl 

450 

IWl 

430 

IWl 

470 

IWl 

430 

IWl 

430 

IWl 

500 

IWl 

510 

IWl 

E20 

IWl 

530 

IWl 

540 

IWl 

550 

IWl 

580 

IWl 

570 

nil 

530 

IWl 

530 

IWl 

BOO 

2XIW1 

S10 

IWl 

G20 

IWl 

630 

:,siwi 

S40 

:./iwi 

E50 

IWl 

SSO 

IWl 

S70 

IWl 

630 

IWl 

630 

1142 

10 

IW2 

20 

‘**1142 

30 

*IU2 

40 

*1142 

50 

/ 


C  *  1.  PRINT  THE  SECOND-ORDER  TRANSFER  FUNCTION  AMD  C’JTPUT  « 

C  «  UOLTftGS  VALUES  AT  zr.CI-f  OF  THE  NON-NEGATIVE  FREQUENCY  < 

C  *  VALUES  AT  T;-.£  REQUESTED  PORTS.  * 

C  »  < 

THIS  SUB-PROGRAM^S  GLOSSARY  OP  FORTRAN  NAMES:  « 

C  *  N2FRPT  :  TO'.Y._  NUMBER  CP  FFIDUZNCY  COMPONENTS  IN  THE  * 

C  a  SEICSD-CRI rR  RESPONSE 

C  *  H2CI.J)  :  I-.-:.;  £;.7Rr,::G£:  I-7H  PORT  CSCDNB-CRZER  TSANSFE< 

c  *  flt.ctibn  value  at  ::2u>?  upon  exit;  ; - r; :  port*- 

C  »  Cw'.VJT  VOLTAGE  VALUE  AT  FRZOUZNCY  R2<Ji  « 

c  *  ispc(J)  :  t;2.:vn  frpouenov  combination  :o:e 

C  *  ALL  OTHER  VAR'.A3_E  “AMES  PHD  ARRAYS  AS  DEFILED  IN 

c  *  sub-program  amain. 

c  *  «■ 

c 

DIMENSION  NPCR7C1).  ISFCCi'  .  ESC' 

COMPLEX  K2Cr.?.l).TH 

COMMON  '003-'  III  (10 )  > P.MPC  10 1 .  Vi  iC  1  D.UUNIT 
COMMON  ^ ENDS'  NCAP. NOUS. NRZS. "  I IND » NEDS • '  IDS 

r 

C*****CHECK  IF  RESPONSE  IS  VO  CE  PRINTED  AT  ALL  EXTRACTED  PORTS 

C 

IF  (IAP.EQ.l)  GO  TO  103 
L=2 

K=NOUT 
GO  TO  110 
105  L=1 
K=NCS 
C 

C*****PRINT  SECOND-ORDER  TRANSFER  FUNCTION  AND  RESPONSE  AT  EACH  OUTPUT 
C**»**PORT  AND  POSITIVE  FRZGUINCY 

C 

110  DO  130  1  =  1 >  N2FRPT 

if  a.'acn.LT.o.ocoi  go  to  iso 

c 

[>***■*  DECIPHER  FREQUENCY  COMBINATION 
C 

ICQMD=I£FC( I ) 

II=IC0M3'10 
JJ= I COMB- 10* I I 
LL=JJ 

IF  (LL.GT.NFREO)  LL=NFREQ-LL 
WRITE  (6.135)  II. LL. W2C I ) » LUNIT 
WRITE  (6.140) 

WRITE  (6.145) 

DO  165  J=L »  K 

IC'JT=NPORT(  J) 

AMAGN=CAB5 ( H2 ( I OUT . I ) ) 

L'=RZAL(K2(  IOUT .  I ) ) 

U=AIMAG(H2( IOUT .  I ) ) 

H2 ( I OUT , I ) =AMP ( 1 1 ) »AMP ( J J ) *K2  C IOUT. I ) »CEX? ( TH (I I ) ) *CEXP ( TH ( J 
1  J) ) 

IF  ai.CO.  JJ)  I  '2  ( IOUT .  I )=!-I2(  IOUT .  I )/'CMPLXC2. 000.  0.000) 
YCA3=CfiB3(H2( IOUT.  I ) ) 

YU=iRSAL  ( H2  C  IOUT » I ) ) 

YV=AIMAG(H2(ICVT,  I ) ) 

IF  (AMAGN.CS. 0.0000)  00  TO  7.13 
nPB=20 .  onoOeALOC  7  0  ( AMAC-N ) 

FrlASE- A T AH2 <  YU ,  YU  d 6  ) .  C  0 0 '3 . 1 4 1 5E B 33  4 


r 


7" 


II=ICOMBm100 

IW3 

440 

JJ=CICONB-100*II  WO 

IW3 

450 

KK=ICOMB- 100*1  I-10-.JJ 

i:.’3 

430 

J1=JJ 

IW3 

4  7  0 

ki=k:< 

IW3 

430 

IF  (Jl.GT.NFREQ)  J 1 -NFREQ- Ji 

IW3 

450 

IF  (Kl.GT.NFREO'1  l<  i'-NFREQ-Kl 

IW3 

500 

WRITE  (6,1351  II. Jl.!a.W3(I),LUNIT 

1W3 

510 

WRITE  (6,140) 

IU3 

520 

WRITE  (6.145) 

IW3 

530 

DO  125  J=K.L 

i  W3 

540 

IOUT=NPORT ( J) 

IW3 

550 

AMAGN-CABS(H3( IOUT. I ) ) 

r;  ;3 

550 

U=REAL ( H3 ( I OUT , I ) ) 

JW3 

5"0 

U=AINAG(H3( IOUT. I ) ) 

IW3 

53U 

DIU=CMPLX( 1 . 00. 0. 00) 

vi;3 

520 

IF  UII.EQ.  JJKOR.  (JJ.EO.KK))  DIU=CMPLX(2. 000, 00. 00) 

IW3 

600 

IF  ( ( I I .EQ. JJ ) . AND. ( JJ.EO.XX ) )  DIU=CMPLXCS. 00, 0 . 00 ) 

I  WO 

610 

H3  ( I  OUT ,  I )  - 1 . 50  0*AMP  (II )  *  AMP  ( J  J )  *  AM?<  XX  )«N3(  IOUT ,  I  )/DIU 

INS 

620 

H3( IOUT » I )-H3( IOUT. I)*CEXP(TH( II ) )*CEX?(TH( JJ) )*CEXP(THCKK) ) IW3 

630 

YNAG=CABS(H3( IOUT, I ) ) 

IW3 

£40 

YU=REAL ( H3 ( I OUT , I ) ) 

IW3 

650 

YU=AIMAG(H3( IOUT, I ) ) 

1X3 

630 

IF  (AMAGN.EO. 0. 0000 1  GO  TO  115 

IW3 

670 

ADB=20 . 000* ALOG1 0 ( AMAGN ) 

IN3 

630 

PHASE=ATAN2 ( YU, YU ) * 180 . 00'3 . 141 532S54 

IW3 

£90 

GO  TO  120 

IW3 

700 

115 

ADB=-1. OOOE+SO 

IW3 

71 C 

PNASE=0. 000 

IW3 

720 

iao 

WRITE  (6. ISO)  IOUT, U. U, AMAGN, AD3, YU, YU, YMAG, PHASE 

IW3 

730 

125 

CONTINUE 

iw:: 

740 

130 

CONTINUE 

IU3 

750 

RETURN 

IW3 

760 

c 

1 1.-13 

770 

135 

FORMAT  C1H0.12HTHIRD  ORDER: , 15X. 1 1HFREQUENCYC  , I 1 , 1H. . 12, 1H, , 12, 

5HII-J3 

730 

1  ) 

=  . E10. 3, 2X, A3 ) 

IW3 

7S0 

140 

FORMAT  ( 1H0, 34X, 17H7RAN3FER  FUNCTION, 40X, 14H0UTPUT  UDL7AGE) 

IW3 

GOO 

145 

FORMAT  C-  V1X.3H  PORT  ,  8X,  4HREAL.  8X,  SI-! IMAGINARY.  GX.  9HMAGN I TUDE 

,  6 1 W3 

810 

IX. 

SH20LOG  NAG, 9X. 4HREAL. 8X. SHIMAGINARY, 6X. 9HMAGNITUDE. 6X, 5HPHASE 

.  n  IW3 

£20 

2.5X.2HN0. 1 14X, 3HDEG. /» 1H  ,3X,4(1H. ),SX,57C 1H. ) . 3X, 53 ( 1H. ) ) 

IW3 

£30 

150 

FORMAT  (1H  •  4X» 12, 4X»  7C3X, E12.5) » 3X, F7.2) 

IW3 

£40 

c 

IW3 

£50 

END 

IW3 

SGO 

SUBROUTINE  J5PCTM  ( Y1 , Y2, Y3, NFREQ, N2FRPT. N3FRPT , FR, Y, MOUT , U2»  W3» 

IPU5P 

10 

IT. 

YLG.MP) 

JSP 

20 

c 

JSP 

30 

C*»****«-»«»«t******»-»  »■*«****«*»#»»»»****»*»»  a  *»*******»****■»»»*»***«-*»*«  JSP 

40 

c 

• 

it  J£P 

50 

C*<MMMt« 

THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOWING  FUNCTIONS: 

«wSP 

60 

c 

» 

1.  PERFORM  AN  -HISTOGRAM-  ANALYSIS  OF  ALL  THE  OUTPUT 

*  JSP 

70 

c 

« 

FREQUENCY  COMPONENTS  AND  COMBINE  THE  REPEATED  ONES. 

*JSP 

80 

c 

# 

2.  PRINT  AND  PLOT  THE  COMPLETE  OUTPUT  SPECTRUM. 

*JSP 

20 

c 

• 

*USP 

100 

£««***» 

THIS  SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINES: 

«JSP 

no 

c 

• 

1.  JPLTSY 

«JSP 

120 

c 

• 

eJSP 

130 

c****»» 

THIS  SU5-PR0CRAMP3  GLOSSARY  OF  FGRTRSN  NAMES: 

«JS? 

140 

c 

* 

Yl(i.J)  :  I-Tif  PORT  FIRST-ORDER  RESPONSE  AT  Wl(J) 

*JS? 

150 

c 

# 

Y2( I. J)  :  I-VH  PORT  SECOND-ORDER  RESPONSE  AT  W2(J) 

nJCP 

160 

c 

• 

Y3H.J1  :  I  TH  PONT  THIPD-ORDER  RESPONSE  AT  W3(J) 

«JSP 

170 

2\k 


c 

*  NFREQ  :  TOTAL  NUMBER  CF  INPUT  FREQUENCIES 

»JSP 

180 

c 

*  N2FRPT  :  TOTAL  NUMBER  CF  POSITIUE  AND  NEGATIUE 

*JSP 

:90 

c 

*  FREGUENCIES  IN  THE  SECOND-ORDER  RESPONSE 

<dSP 

200 

c 

«  N3FRPT  :  TOTAL  NUMBER  OF  NON-NED AT IUE  FREGUENCIES 

«JSP 

210 

c 

*  IN  THE  THIRD-ORDER  RESPONSE 

*JSP 

220 

c 

»  FR  :  UALUES  CF  DISTINCT  FREQUENCIES  IN  THE  OUTPUT 

*JSP 

230 

c 

*  SPECTRUM 

*JSP 

240 

c 

*  YCII  :  OUTPUT  PORT  UOLTAGE  AT  FREGUENCY  FR(I) 

•JSP 

250 

c 

»  NOUT  :  OUTPUT  PORT  INDEX 

•JSP 

260 

c 

»  YLG(I)  :  LOG  OF  THE  OUTPUT  UOLTAGE  AT  FREGUENCY  FR(I) 

•JSP 

2F0 

c 

* 

*JSP 

230 

*»»«**«#**«***#«  #**•»»*  JSP 

290 

c 

JSP 

300 

COMPLEX  YlCflP,  n.Y2(M?.n.Y3U'.?.  n.Vtn.TH 

JSP 

310 

DIMENSION  FR(1),  112(1).  W3(  1 ) *  IPTC1),  YLG(l).  IFRUNT(2) 

JSP 

320 

COMMON  /C03'  UiaO).ANP(  1 0) . TH(IO) . LUNIT 

JSP 

330 

COMMON  /01G-'  NCONTC32). JCQNT(IO) 

JSP 

340 

DATA  IFRUNT ( 1) .  IFRUNT  (2)/?'<-;RAD/SEC. ?H  HERTZ  ✓ 

JSP 

350 

JDUT  =NCONT  ( 1  iOUT  ) 

JSP 

3S0 

IC0N=2 

JSP 

370 

c 

JSP 

3S0 

C *-**«■»  PACK  THE  UARIOUS  CRDER  RESPCNSES  FCR  THE  RECUSSTED  OUTPUT 

JSP 

390 

POST  INTO  AN  ARRAY  POP  -HISTOGRAM-  ANALYSIS 

JSP 

400 

C 

JSP 

410 

DO  105  I=1.NFREQ 

JSP 

420 

FR(I)=UJ (I) 

JSP 

430 

105 

Ycn=Yi(J0UT.n 

JSP 

440 

KOUNT=NFREO 

J5P 

450 

C 

JSP 

4E0 

C 

SECOND-ORDER  RESPONSE 

JSP 

470 

C 

JSP 

480 

DO  110  1=1 . N2FRPT 

J5P 

490 

IF  ( (12(1). L7. 0.00)  GO  TO  110 

JSP 

5  00 

IC0UNT=;(0UNT>1 

JSP 

510 

V  ( (COUNT )  =Y2  (  JOUT » I ) 

JSP 

520 

FRCMCJNT)=U2(I) 

JSP 

530 

no 

CONTINUE 

JSP 

540 

c 

JSP 

550 

c 

THIRD-ORDER  RESPONSE 

JSP 

5S0 

c 

JSP 

570 

DO  115  I=i.N2FRPT 

JSP 

580 

MOUNT =KOUNT+ 1 

JSP 

590 

Y ( MOUNT )=Y3( JOUT.  I) 

JSP 

eoo 

FR< MOUNT )=U3(I) 

JSP 

BIO 

115 

CONTINUE 

JSP 

G20 

c 

JSP 

630 

C«H**»*  INITIALIZE 

JSP 

840 

C 

JSP 

E50 

DO  120  1=1. MOUNT 

JSP 

CSO 

120 

IPT< I )=I 

JSP 

670 

C 

JSP 

680 

PERFORM  -HISTOGRAM''  ANALYSIS 

JSP 

690 

C 

JSP 

700 

NFPT 1 =MOUNT- 1 

JSP 

710 

DO  135  1=1 . NFPTi 

JSP 

720 

IPTU'AL=IPT  ( I ) 

JSP 

730 

TF  (IPTUAL.LT. I)  GO  TO  135 

JSP 

740 

Pr REO=r R( I  ) 

JSP 

750 

I 1=1-1 

JSP 

760 

DO  130  J= 11. MOUNT 

JSP 

770 

215 


IF  (FR(J).EQ.PFREQ)  GO  TO  125 

'S? 

FSO 

GO  TO  130 

!C  O 

TOO 

125 

Y(  I )=Y( I )+Y( J) 

IC'D 

800 

IPT( J)=IPTUAL 

JSP 

810 

130 

CONTINUE 

icp 

820 

135 

CONTINUE 

JC3 

830 

c 

•CO 

840 

c*****  PRINT  COMPLETE  OUTPUT  SPECTRUM 

icp 

SaO 

C 

•cp 

8S0 

IF  (LUNIT.E0.3HRAD)  IC0N=1 

JSP 

870 

WRITE  (6,155)  JOUT 

JSP 

830 

WRITE  (S, ISO)  IFRUNT (ICON) 

J£P 

880 

DO  150  1=1 , KOUNT 

<c,r) 

800 

IPTUAL=IPT ( I ) 

icp 

810 

IF  ( IPTUAL . LT. I )  GO  TO  150 

JSP 

OTQ 

AMAGN=CABS  C  V ( I ) ) 

■c  p 

820 

U=REftL(Y( I ) ) 

JSP 

840 

U=A1MAG( Y( I ) ) 

JSP 

830 

IF  CAMAGM.EQ. 0.000)  GO  TO  140 

JS”3 

£30 

YLG ( ! ) =ALOG 1 0 ( AMAGN ) 

>cp 

870 

PHASE=ATAN2 ( U , U ) » 1 30 . 000x3 . 14 15S2S54 

JSP 

830 

GO  TO  145 

JSP 

830 

140 

PHASE=0 . 000 

JSP 

1000 

YLG( I )=-l . 000E+30 

JSP 

1010 

145 

WRITE  CS.1G5)  FR ( I ),U,U. AMAGN. PHASE 

cp 

.'.'■'20 

150 

CONTINUE 

JSP 

1C  30 

c 

(Cp 

1040 

o***#  plot  THE  OUTPUT  SPECTRUM 

JSP 

J.  L  .J  .> 

C 

cp 

1130 

WRITE  (6,170) 

’  C*  D 

1070 

CALL  JPLTSP  (FR, YLG, KOUNT, 23. 23HL0G  OF  OUTPUT  MAGNITUDE) 

t  CO 

iC30 

WRITE  (6.175)  IFRUNT ( ICON) 

JSP 

1000 

RETURN 

JSP 

1100 

c 

;cp 

13.10 

155 

FORNAT  (lHl./x, IX, 47H3INUS0IDAL  STEADY-STATE  DUTPUT  RESPONSE  AT 

POJSP 

1120 

1RT.2X. 12, x. 1H  . 47( 1H. ) ) 

JSP 

1120 

ISO 

FORMAT  (//7X.SHFREQUENCY, UX.4KREAL, 12X, 3HINAGINARY. 3X, 3HMAGNITUDZJSP 

1140 

1 , 12X. 5HPHASE. ^8X, A7. G7X. 2HDZG, xlH  . GX, SB( 1H. ) ) 

JSP 

1150 

155 

FORMAT  (1H  , 5X. E12. 2, 4X, E12. 3. 7X. E12.3, 5X, E12. 3, 7X, E12. 3) 

JSP 

11S0 

170 

FORMAT  ( 1H1 , 45X, 31HRESP0NSE  MAGNITUDE  US  FREQUENCY/ ) 

JSP 

1170 

175 

FORMAT  (1H0.55X, UHFREQUENCY  (,A7, 1H)) 

JSP 

1380 

c 

JSP 

1180 

END 

JSP 

1200 

SUBROUTINE  JPLTSP  (XX, YY. NDATA, NB, LABEL2) 

JPT 

10 

c 

JPT 

20 

C-IMHMMt#  »-»•*•»*  *■*•»******#•*»■*#»****■*#»»***#»»#•****#»*»**•»**#*#***•  *****  *  J  P 7 

30 

c  * 

c  * 

c  * 

c**»**» 

c 

c  * 

c  * 

c***»*» 
c  * 

c  * 

c  * 

c  « 

c  * 


! 


THIS  SUB-PROGRAM  PERFORMS  THE  FOLLOW I KG  FUNCTION: 
1.  PLOT  THE  COMPLETE  OUTPUT  SPECTRUM. 

THIS  SUB-PROGRAM  USES  THE  FOLLOWING  SUBROUTINES: 

1 .  JSEP 

2!  JLCOMP.JPUT  (FUNCTION  SUB-PROGRAMS'! 

THIS  S'JB-FROGRAM-S  GLOSSARY  OF  FORTRAN  NAMES: 


XX 

YY 

MB 

LABELS 

NDATA 


COORDINATE  OF  BATA  (FREQUENCY) 

Y  COORDINATE  OF  DATA  (LOG  MAGNITUDE  OF  OUTPUT 
NUMBER  OF  CHARACTERS  IN  Y  AXIS  LABEL 

Y  AXIS  TITLE  IN  HOLLERITH  FORMAT 
NUMBER  OF  DATA  POINTS 


«JPT 

40 

*JPT 

£0 

“JPT 

GO 

“JPT 

70 

“JPT 

80 

“JPT 

80 

»JPT 

100 

“JP7 

j  j  0 

*>JPT 

3  20 

*  JPT 

120 

«  JPT 

340 

«J°T 

150 

K  jp7 

3  GO 

“JPT 

170 

216 


nno  non  non  non  non  non 


C  *  *JPT 

*******  **-IHMHHHHHHHHHH**9HHMHHHHH»****************«*****«HMMHHMHM»***JPT 

C  JPT 

REAL  JPUT  JPT 

DIMENSION  SYM30LC4),  AMASKUO).  XSCALSCID),  YSCALEC511,  PL0TC51 . 1 OJPT 
1)  JPT 

DIMENSION  XXU).  VY(l)  JPT 

DIMENSION  LftEELS(S),  LBCSO)  JPT 

DATA  lSYM30L(  J)»I=l»4)/10i-i*»*»******. lOHOOOOOOOOOO, 10H553S$553O3, 1JPT 
10KXXXXXXXXXX/, ( AMASXC I 5)1-1* 10 1/770000000090000000003.  770000000000 JPT 
2000000B. 77000000000000903. 77COGOOQOQOQC93.  770000000090B.  7700000000JPT 
33. 77000C003.  7700003. 77CC3.  77B/.  ELANX/553555353555555555553/.  DASH/ 1  JPT 

4  On - /.  UPLINE/iCHI  IIIIXIIIX/.  PLUS/1 0M++++++'i‘+++/  JPT 

JPT 

GENERATE  GRAPH  LABELS  JPT 

JPT 

N2=!S3  JPT 

CALL  JSEP  (6.G0.N2.LA3EL2.LB)  JPT 

JPT 

ZERO  GRAPH  ARRAY  TO  ALL  BLANKS  JPT 

JPT 

DO  105  1=1,51  JPT 

DO  105  J=i,10  JPT 

105  PLOT  ( I ,  J)=ELANX  JPT 

JPT 

FIND  DATA  MAXIMUM  AMD  MINIMUMS  JPT 

JPT 


XMAX=MX( 1 1 
XMIN=XMAX 
YMAX=YY ( 1 ) 

YMIN=YMAX 

IF  CNBATA.LE.0)  GO  TO  115 
DO  110  J=1,NBATA 

xmax=ama:<!  (  >;max,  xxc  j  i i 
xni n=an  i  m  i  (  >;m  i  m  ,  c  j  ) ) 

YMAX=AMAX1 C YMAX. YYC J ) ) 

110  YMIN=AMIN1 C YMIM. YYC J ) ) 

115  CONTINUE 

DETERMINE  X  AND  Y  INCREMENTS 

XSC= 1 00 . / ( XMAX-XMIN 1 
YSC=50 . 0/ C  YMAX-YMIN 1 

CONSTRUCT  H0RI20NTAL  REFERENCE  LINES 

DO  125  1=1.51.10 

IF  CI.LT.2)  GO  TO  125 
DO  120  J=i. 10 
120  PLOT ( I , J)=DASH 

125  CONTINUE 

CONSTRUCT  UERTICAL  REFERENCE  LINE 

JP03=10 
J'.-10RD=1 0 
DO  130  1=1.51 
SYM=UPLIME 

TEST=(  PLOT  C I .  JL'CRD  5 .  AND .  AMASX  C JPOS ) ) 
TDAS!-i=  C DASH.  AND .  AMASX  ( JPOS 1 ) 


JPT  450 
JPT  4G0 
JPT  470 
JPT  430 
JPT  4S0 
JPT  500 
JPT  510 
JPT  520 
JPT  530 
JPT  540 
JPT  550 
JPT  5B0 
JPT  570 
JPT  530 
JPT  590 
JPT  600 
JPT  G10 
JPT  620 
JPT  630 
JPT  640 
JPT  650 
JPT  GSO 
JPT  670 
JPT  GSO 
JPT  690 
JPT  700 
JPT  710 
JPT  720 
JPT  730 
JPT  740 
JPT  750 
JPT  760 
JPT  770 
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IF  (JLCONPCTEST , TDASH) .EO„  0 )  SYM=PLUS 

JPT 

780 

130 

PLOT ( I , JU3RD ) = JPUT  C fill  ASX . I , JUCRB . JPGS , SYM , 5 1 , PLOT ) 

JPT 

790 

c 

JPT 

SOO 

c 

DETERMINE  X,Y  LOCATION  CF  DATA  POINTS  ON  GRAPH 

JPT 

810 

c 

JPT 

820 

NEP=NDATA 

JPT 

830 

EO  143  J=1 . NDr 

JPT 

840 

JYXX=C  (YY(J)-YMIN)*YSC+1.5) 

JPT 

SaO 

jx=  ((>;:<(  j  )  -xmri )  *xsc+o .  5 ) 

JPT 

sso 

J!,!3R3=C  JX/101+1 

JPT 

870 

JP0S=N3B( JX»  101  +  1 

JPT 

£80 

DO  143  JY= 1  - JYKK 

JPT 

890 

TEST = C PLOT  ( JY .  LUCRE ) .  AND . AMASX  ( JPOS ) ) 

JPT 

200 

TUP- : UPLINE . AND . AT A IX C JPGS  > ) 

JPT 

910 

7  ELANX-  C  ELiTNX .  AND ,  AMASX C  JP05 )  J 

JPT 

sso 

teas:  : = c  dash  .  one.  anasx  c  jpos  ) ) 

LPT 

sso 

TPLJ3- :  PLUS. AND. AMASX JP  03 )  1 

LPT 

£40 

IP  ( JLCC X? C TEL ANX , VEST ) . EO. 0 )  GO  TO  135 

LPT 

SoO 

IP  ( JLC'EMPCTBASH.  VZ3T)  .EO.O)  GO  TO  135 

JPT 

SSO 

IP  ( LLCCM? C TPLUS, TEST ) . EO . 0 )  GO  TO  135 

JPT 

S70 

IP  i. JLCONPC TUP. TEST). UZ.O)  GO  TO  140 

JPT 

SSO 

c 

LPT 

£30 

c 

INSERT  SYMBOL  PGR  DATA  POINT 

JPT 

1000 

c 

JPT 

1010 

135 

SYN-SYNSDL(i) 

JPT 

1020 

GO  TO  145 

JPT 

1030 

c 

JPT 

1040 

c 

IP  MULTIPLE  EATA  POINTS  IN  SAXE  PLOT  LOCATION  USE  =  SIGN 

JPT 

1050 

c 

=  sign  :s  ini-iiuitzd  res  bar  graph  form  of  output 

JPT 

1050 

c 

JPT 

1070 

140 

SYU=SYMBOLr.  1 ) 

JPT 

1030 

143 

PLOT  <  JY. LUCRE ) =LPU  T « AN, ASX , JY, LUCRE. JPOS, SYM,  51 ,  PLOT ) 

JPT 

1090 

c 

JPT 

1100 

c 

GENERATE  X  AND  Y  SCALES 

JPT 

1110 

c 

JPT 

1120 

DO  150  1=1,51 

JPT 

1130 

150 

VSCALEI 1  )=PLCAT ( 1-1  VN’EC+YMIN 

JPT 

1140 

DO  153  1=1,. U 

JPT 

1150 

JANE=12-I 

JPT 

1 1G0 

xlou=x:;:m-i.o/xsc 

JPT 

1170 

: ;  i  r;c=  ioa.<vo  :max-ulcu  ) 

JPT 

11SO 

>;uLi=;v;NA;<-PLOATkic»:-io)^xiN3) 

JPT 

1190 

EMAG=A33(XUL1 ) 

JPT 

1200 

IP  C EXA3.LE. 0 . 10 )  UUL1=0.0 

JPT 

1210 

153 

XSCALE ( JANE ; =XUL1 

JPT 

1220 

prLnt'ioo 

JPT 

1230 

DO  175  1=1.51 

JPT 

1240 

JC=S2-I 

JPT 

1250 

I T  =  1 1 

JPT 

12S0 

ISO 

J.T=IT-1 

JPT 

1270 

IP  (IT.EQ.l)  CO  TO  '.S3 

JPT 

1280 

IP  (PLOT C JC > I T ) . EG . CLANK )  GO  TO  ISO 

JPT 

1290 

135 

IP  ^.'2. £0.0)  GO  TO  170 

JPT 

1300 

PRINT  1S3.  LD( I ) > YSCALZ( JC) , (PLOT (JC-J)»J=I»  IT) 

JPT 

1310 

C-0  TO  175 

JPT 

1320 

170 

PRINT  ISO,  YSCALE- JC). (PLOTCJC, J). J=l. IT) 

JPT 

1330 

175 

CONTINUE 

JPT 

1340 

FRUIT  ICO 

JPT 

1350 

PRINT  IS 3 

JPT 

1  c  SO 

PRINT  200.  (XSCALEf I). 1=1, 11,2). (X3CALECI >.1=2.10,2) 

JPT 

1370 

RETURN 

JPT 

1330 

c 

J?  7 

1330 

ISO 

FORMAT  ( 13X. 1HI.20I5H. ...  11 ) 

JPT 

1400 

1SS 

FORMAT  (1X.A1.1X.E9.2. IX. 1H+, 10A10. AS) 

JPT 

1410 

190 

FORMAT  C2X.E10.3. IX. 1H+. 10A10.AS) 

JPT 

1420 

1SS 

FORMAT  C4X. 1 1 (9X, 1HU) ) 

JPT 

1430 

200 

FORMAT  (4X,E10.3.3X,5(10X,£i0.3WX,5a0X.E10.3)) 

JPT 

1440 

c 

JPT 

14b0 

END 

joy 

14S0 

REAL  FUNCTION  JPUTC AMASK. J. JWORD. JPOS.SYM, NPDM, PLOT) 

JP 

10 

c 

JP 

20 

c 

JPUT  ARRANGES  DATA  POINTS  FOR  PLOTTING 

o 

20 

c 

I'D 

40 

DIMENSION  AMASK ( 10 ) .  PLOT (NPDM. 10) 

1  p 

so 

REAL  JPUT 

JO 

GO 

JPUT= ( PLOT  C  J , JUORD ) . AND . . NOT . AMASK  < JPOS ) ) . OR . ( AMASK ( JPOS ) .AND. 

SYM )JP 

70 

RETURN 

ip 

SO 

c 

JP 

SO 

END 

lo 

100 

FUNCTION  JLCOMPCI.K) 

JLP 

10 

c 

J_P 

20 

c 

JLCOMP  ARRANGES  DATA  POINTS  FOR  PLOTTING 

JLP 

20 

c 

JLP 

40 

IF  (I.GE.O.ANB.K.LT.O)  GO  TO  105 

JLP 

SO 

IF  (I.LT.O.AND.K.GE.O)  GO  TO  115 

JLP 

GO 

IF  ( I-K)  115.110.105 

JLP 

70 

105 

JLC0MP=1 

JLP 

CO 

RETURN 

JLP 

SO 

110 

JLCOMP=0 

JLP 

100 

RETURN 

JLP 

110 

115 

JLC0M?=-1 

JLP 

120 

RETURN 

JLP 

130 

c 

JLP 

140 

END 

JLP 

ISO 

SUBROUTINE  JSEP  ( ID1 . ID2. M. LAB. LA) 

JSP 

10 

c 

;CP 

20 

C*****JSEP  SEPARATES  THE  ALPHABETS  IN  THE  Y-AXIS  LABEL  FOR  UERTICAL 

JSP 

30 

C****»  DISPLAY 

JSP 

40 

C 

JSP 

SO 

DIMENSION  LABCID1).  LACID2) 

Jcp 

ED 

DATA  LANK/10H  ' 

JEP 

70 

IF  (M.LE.O)  GO  TO  120 

JSP 

EO 

DO  105  1=1. IDS 

JSP 

SO 

105 

LA(I)=LANK 

JSP 

100 

LIM=(M-1)/10+1 

JEP 

110 

DO  115  11=1. LIM 

JSP 

120 

N=1 1*11-1 1+1 

JSP 

130 

LABEL=LA3(  ID 

icp 

140 

K=LABEL 

JSP 

150 

DO  115  12=1.10 

JSP 

1G9 

JJ=N-I2 

JSP 

170 

IF  (JJ.GT.M)  GO  TO  110 

JSP 

180 

K=M0D(K»64) 

JSP 

ISO 

C 

JSP 

200 

C******  BOTH  ISHFTLA  AND  ISHFTRA  ARE  SYSTEM  DEPENDENT  ROUTINES  ******** JSP 

210 

C 

JSP 

2  30 

K= I SHFTLA ( K . 54 ) 

JSP 

230 

LA(JJ)=K 

JSP 

240 

110 

LABEL=ISHFTRA( LABEL. S) 

JSP 

250 

115 

K=LABEL 

JSP 

EGO 

2)3 


L 


i 


p 


120  RETURN 


END 


JSP 
JSP 
JSP 
KFI 

C  KFI 


S'JDRC’JTINE  KFRINC  ( INTYP*  NFREQ) 


C  * 

C*»***> 

C  « 

c 

C  * 

c*-****» 
c  « 


*KFI 

*KFI 


iEQUZNCY  INCREMENTS  FOP  FREQUENCY  SWEEP  *KFI 

*KFI 


THIS 


HIS  EU3-FR0GRAM  PERFORMS  THE  FOLLOWING  FUNCTION: 

1 .  COMPUTE  THE  i-T 
CAPA3 1 L.  I TY . 

«KFI 
*KFI 
*Kr  I 
*KFI 
*KF  I 
*Kr  1 
«KFI 

-x  x  saa#  »***-*it-»***aHHHHHMt|(FI 

KFI 

COMPLEX  PH?, EE 

ccnno; i  /-C03F  fro : i o ' a a: :? cio>. phase ao). lunit 
common  .-004'  N37PS 1 3 ) « .  v> :;c 1 5 ) » ( 5 ) 


EUD-FRCGRAMFS  GLOSSARY  CF  FORTRAN  MAXES: 

INTYP  :  TYPE  CF  FREQUENCY  INCREMENTS  (LIN  OP  LOG) 
NFiREO  :  NUMDS?  OF  INPUT  FREQUENCIES  (LE.  5) 

ALL  OTHER  CAP a AO -E  MAXES  AMD  ASSAYS  AS  DEFINED  IN 
EUD-PROGRAM  AMAIN. 


itx  .t  £-  xai  a  j  -x  > at  x at  at  t  x  x 


CHECK  IF  LINEAR  CR  LOG 
C 

IF  ( INTYP. EO.SKL IN'  GO  TQ  110 
C 

LOG  FREQUENCY  INCREMENTS 
C 

DO  103  I"! i NFREQ 


'.ENENT  IS  DESIRED 


57PS=FL0A7( 


a  i  ,;j  iro  ,  .■  ■ 


103  PRIME.  I  )-C!-iFSI  I 
RETURN 


70(1) j »* 1 1 .  CCOASTPS-l . 000 ) ) 


LINEAR  FREQUENCY  INCREMENTS 
C 

110  DO  113  I“I >  NFREQ 

STFS -FLOAT (N37F3C I )-). ) 

115  FSIi  1C  II )  =  f  HFS  C I ) -FROI I ) )  /3TFS 
RETURN 


END 


EUGRu'JTINZ  KFRULS  C I .NFREQ*  I  FLAG) 


KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFI 

KFU 

KFU 


C  »  »  *  *  .:•  s  s  o  » »  x 

C  :> 


I?  --  *•  w  i 


C  » 

c  * 

c  » 

C-5* 

r  * 


*•*»>»•*******#***»»*■»  *****  *****#*****##■**{<  pij 

*KFU 

THIS  SU'j-FRQCDMM  FEKFC.RN3  THE  FOLLOWING  FUNCTION:  «KFU 

1.  COMPUTE  THE  INCREMENTED  FREQUENCY  UALUE3  FOR  THE  NEXT  «KFU 


ANALYSIS. 


THIS  SU3-FR0GRAMF3  GLOSSARY  OF  FORTRAN  NAMES: 

i  :  NL'MEER  OF  INCREMENTS  (ANALYSIS)  CARRIED  OUT 

THUS  FAR 

NFREQ  :  I 'UNDER  OF  INPUT  FREQUENCIES 


<"■)):  MR 

t  -*,*>•  ;r~'i 


rOUENCY  ’  'FLUES  CHANGED 
QUINCY  CALuEfS)  CHANGED 


ALL  OTHER  YARI.  D.E  N 

C  a  I  _n  "V^  ^ 


:ES  AND  ARRAYS  o  DEFINED  IN 


I  ill  .. 


*KFU 
*KFU 
«KFU 
«KFU 
•KFU 
«KFU 
•MTU 
•--KFU 
•X\FU 
•  I'.FU 
*-T.FU 


taaaa-;  aaaaajaaja  aaaiaaaajaaaaasasasaaasaaaaaa  »»#»#  >«#**»  #***#**aMMH**«t;FlJ 


270 
2S0 
230 
10 
20 
30 
40 
50 
BO 
70 
SO 
SO 
100 
110 
120 
130 
140 
150 
ISO 
170 
ISO 
130 
200 
210 
220 
220 
240 
250 
230 
270 
2S0 
2S0 
300 
310 
320 
330 
340 
350 
350 
370 
330 
390 
10 
20 
30 
40 
50 
60 
70 
SO 
SO 
100 
j.  1 0 
120 
130 
140 
150 
1E0 
170 
180 
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COMPLEX  PHASE  KFU 

COMMON  /003'  FRUO) ,  AMPC 10 ) , PHASE ( 10).  LUMIT  I'.FU 

COMMON  /004/  NS7PSC5)  •  FRINCC5)  » HFR(5)  KFU 

IFLAG=0  KFU 

c  ::~u 

C **♦#•»  INCREMENT  THE  INPUT  FREQUENCIES  KFU 

C  KFU 

DO  105  J=1 » NPREQ  KFU 

IF  (I.GT.NSTPSCJ))  GO  TO  105  KFU 

FR( J)=FR( J)+FRINC( J)  KFU 

IFLAG=1  KFU 

105  CONTINUE  KFU 

IF  (IFLAG.EQ.O)  RETURN  KFU 

1=1+1  KFU 

C  KFU 

C«****  PRINT  THE  NEU  FRECUENCV  UALUES  KFU 

C  KFU 

WRITE  (6.  US)  LUNIT  KFU 

DO  110  J=1 • Mr REO  KFU 

110  WRITE  CG.120)  J.FRU)  KFU 

RETURN  KFU 

C  KFU 

115  FORMAT  (1H1. 18HINPUT  FREQUENCIES: » 41H  , SHFREQUENCY, 5X, BHUALUEU A3, KFU 

UH) )  KFU 

120  FORMAT  (1H0.4X. I1.9X.E10.3)  KFU 

C  KFU 

END  KFU 

EUEROUTINE  LTRANS  CNEG. Nl. NADD.KK. NLBN. ER, NFRGM, NTO, TYPE. ICONT » UALLVR 
1UE.NNODE.KEV)  LVR 

C  LTR 

(;****-»***»»***«*•»»**********»»******»*»■»«**»»•■»»*»*  *»***c«*»«'»**jh»»***»*lTR 
C  *  THIS  SUB-FROGRAM  PERFGRMS  THE  FOLLOWING  FUNCTIONS:  «_TR 

C  *  1.  READ  THE  BIPOLAR  TRANSISTOR  PARAMETERS  SPECIFIED  BY  *LTR 

C  *  THE  USER.  «_TR 

C  *  2.  CALCULATE  THE  COEFFICIENTS  OF  THE  NONLINEAR  ELEMENTS  «L7R 

C  *  FRESENT  IN  THE  EOUIUALENT  TRANS 15TGR  MOIEL.  «LTR 

C  »  3.  FORM  TOPOLOGY  DESCRIPTION  ARRAYS  BASED  ON  THE  «'_TR 

C  *  EOUIUALENT  FErRESENTATION.  «CTR 

C  »  *-LTR 

C*<mh»»  THIS  SU3-PR0GRAMFS  GLOSSARY  OF  FORTRAN  NAMES:  «LTR 

C  *  NEG  :  USER  SPECIFIED  ELEMENT ( DEUICE)  NUMBER  «'_TR 

C  *  Nl  :  NODE  NUMBER  FOR  THE  BASE  TERMINAL  «U7R 

C  »  NADD  :  CURRENT  HIGHEST  BRANCH  NUMBER  IN  THE  LINEAR  «LTR 

C  *  NETWORK  *LTR 

C  *  KK  :  UPON  ENTRANCE:  CURRENT  NUMBER  CF  NONLINEAR  «LTR 

C  *  ELEMENTS!  UPON  EXIT:  NUMBER  CF  NONLINEAR  «LTR 

C  *  ELEMENTS  AFTER  INCLUSION  OF  TRANSISTOR  NON-  +LTR 

C  *  LI  [-EAR  ELEMENTS  «LTR 

C  *  ALL  DTHER  UARIA3LE  NAMES  AND  ARRAYS  AS  DEFINED  IN  «LTR 

C  *  SUB-FROGRAM  AMAIN,.  *_VR 

C  *  <>_TR 

»**»>**»**»**  5  »  It  *■»«****#*#*•*■»•**•*«  ^ *,  i? 

C  LTR 

INTEGER  ER.TVPt.R.C  LVR 

REAL  IE. IC»  ICMAXr M0» Ml . M2. M3. N. !< .MU  LIP 

DIMENSION  ER<1).  NFROMU).  NTOU).  TYPE ( 1 ) »  UAL'JEU).  KEY(i),  ICCM-VR 

1T( 1 )»  NLEMC1)  LTR 

COMMON  /00U  NTYPEf  10), fl(I0,9)  LTR 

COMMON  ✓  OIS/  NC0NTC32), JCONTC 10)  LTR 


KFU 

ISO 

KFU 

200 

I'.FU 

210 

KFU 

220 

KFU 

230 

KFU 

240 

KFU 

2dO 

KFU 

E30 

I'.FU 

270 

KFU 

230 

KFU 

c.30 

KFU 

300 

KFU 

310 

KFU 

220 

KFU 

230 

KFU 

240 

KFU 

350 

KFU 

230 

KFU 

270 

KFU 

230 

KFU 

230 

KFU 

400 

KFU 

410 

13 » KFU 

420 

KFU 

430 

KFU 

440 

KFU 

450 

KFU 

430 

lALLVrR 

10 

LVR 

20 

LTR 

30 

«*L7R 

40 

*_7R 

50 

*ltr 

eo 

k-_VR 

70 

f.*  *■ 

30 

;; 

SO 

«s'_“R 

100 

k'ItR 

10 

*-LTR 

'  20 

«LTR 

120 

♦:-'_TR 

140 

«,_TR 

1E0 

*L7R 

■GO 

VR 

170 

«>LTR 

ISO 

*LTR 

iSO 

+  LTR 

£00 

+  LVR 

210 

«LTR 

£20 

«_TR 

230 

«-LTR 

£40 
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COMMON  /ENOS'  NCAP, NOUS, NRES, MIND. NDCS. NC5 
DATA  R,  C>  NR, NC»  ND/2H  R,2H  C.  2HNR.2HNC.  2HND/ 

C 

C*«***  NODE  NUMBERS  FOR  EMITTER. COLLECTOR, AND  INTERNAL  JUNCTION 
C 

NE=Nl+3 

NCJ=N1*2 

NJ=N1+1 

C 

0*«hh*  READ  TRANSISTOR  PARAMETERS 
C 

READ  (5,1205  N.UCD.iTSO.MU.IC, ICMAX, AP. HFEMAX 
READ  (5,1205  K, REF, CJE, CP2, RB. RC. Cl , C3 

C 

C****-»  EMITTER  RESI5TIUE  NONLINEARITY 
C 

NADD=NADD+1 
ER(NADD)=NADD 
NLEN(K!0--NADD 
Nr RDM ( NADD  > "N J 
NTO ( NADD  5  =NE 
TYPE (NADD 5 =NR 

HFE=HFEMAX.'(  1 . 00+Ar*(  ( ALOClOf  IC/ICMAX)  )**2)  5 
IE=IC» (1.00+1. 00/HFE1 
G1=37.S*IE 
A(ICK,  1  )=G1 

A(KK,2)=Gl**2/IE/2. 00000 
A(KK,3j=G1**3/IE**2/6. 000000 

*****  COLLECTOR  DEPENDENT  NONLINEARITY 

M0--1 . 00/(1 . 0 0- ( UCB/UCBO 5 **N 5 

Mi=-M»UCB*-*  ( N-l  5 *MO**2/UCBO»*N 

N2=(N-1 . 0000 )*M1 'UCB/2 . 00+M 1 «*2/M0 

DUM1=2 . C0*M2*( (N-l . 0000)/2. 00/L'CB+2. 0*M1/M0 1/3. 0000 

DUM2=MI*((N-1. 00001/2. 00/UCB**2+O11/M0)**2)/3. 000 

M3=DUM1-DUM2 

SM1=IC*M1/M0 

SM2 -IC-M2/M0 

Sfi3=IC«M3/M0 

DUM2=AL0G10 (2. 7182318281*2. 000*AP 
DUM1=AL0G10< IC/ICMAX1 

A 1 =HFEMAX/ ( KFEMAX+1 . 0  0+AP*DUM 1 **2+DUM 1 *DUM2 1 
A2=-A 1 **3*DUM2* ( DUM 1 +ALOG 1 0 ( 2 . 7 1 828 13 1 8 1 1 /2 . O/IC/HFEMAX 
A3=  ( Al-'S.  00  )*(  -2. 00-“A2/IC+12. 00*(  A2/A1  )**2-Al**3*DUM2**H/2. 
1C**2/HFEMAX) 

JJ=:<I<+1 
NADD=NADD+1 
NLEN( JJ5=NADD 
br(Nadd;=nadd 

NFRQM ( NADD 1 =NC  J 
NTO(NADD)=NJ 
TYPE ( NADD 1=ND 
ICONT (NADDl=NADD+2 
JCQNT ( J J 1 -NPDD+ 1 
fT(  JJ»  1  l=Al»fiO*A(KK,  1) 

A( JJ. 2 1=SM1 

A(  J  J.  3  J  =A2»f10»  A  ( KK ,  1 1**2+A1*M0*A(KK,21 

A(JJ,4)=SM2 

A(JJ.51=A1*M1«A(KK. 11 


222 


LTR 

330 

LTR 

34Q 

LTR 

350 

LTR 

3S0 

LTR 

370 

LTR 

380 

LTR 

390 

LTR 

400 

LTR 

410 

LTR 

420 

LTR 

430 

LTR 

440 

LTR 

450 

LTR 

4S0 

LTR 

470 

LTR 

480 

LTR 

490 

LTR 

500 

LTR 

510 

LTR 

520 

LTR 

530 

LTR 

540 

LTR 

550 

LTR 

560 

LTR 

570 

LTR 

580 

LTR 

590 

lTR 

BOO 

LTR 

BIO 

LTR 

620 

LTR 

E30 

LTR 

B40 

LTR 

G50 

LTR 

GGO 

LTR 

B70 

LTR 

G80 

LTR 

690 

LTR 

700 

LTR 

710 

LTR 

720 

LTR 

730 

LTR 

740 

LTR 

750 

LTR 

7G0 

LTR 

770 

LTR 

780 

LTR 

790 

LTR 

800 

LTR 

810 

LTR 

820 

LTR 

830 

LTR 

840 

LTR 

850 

LTR 

8B0 

LTR 

870 

LTR 

880 

LTR 

890 

LTR 

900 

LTR 

910 

LTR 

920 

AC JJ»  B)=A3*M0*A(KK>  1 )**3+Al*M0*A(KK>  3)+2.  0*A2*M0*A(KK>  1 )*A(KK»  2) 
AC JJ»?)=SM3 

AC JJ*  8)=A2*M1*A(KK» 1 )**2+Al*Ml«A(KX.  2) 

A(JJ,9)=A1*M2*A(KK,1) 

C 

c*****  COLLECTOR-BASE  CAPACITANCE 
C 

NADD=NADD+1 
BR(NADD)=NADD 
NFROM (NADD)=NCJ 
NTO(NADD)=Nl 

IF  (ABSCC3). EG). O.OOOOOOO)  GO  TO  105 

TYPE ( NABB )=C 

UALUE  C  NABB ) =C3 

KEY(NADD)=2 

NCAP=NCAP+1 

GO  TO  110 

105  UALUE(NADD)=1.000E+06 
TYPE(NABD)=R 
KEY(NADB)=5 
NRES=NRES+1 
C 

C*****  EMITTER  CAPACITOR C LINEAR ) 

C 

110  NADB=NABD+1 
BR(NADD)=NABD 
NFROM ( NABB ) =N  J 
INTO  ( MADE  )=NE 
TYPE (N ADD )=C 
UALUE ( N ADD ) =C JE+ I E*CP2 
KEYCNADD)=2 
NCAP=NCAP+1 
C 

C*****  BASE-EMITTER  CAPACITANCE (LINEAR) 

C 

IF  (ABS(Cl).EQ. 0.000)  GO  TO  115 
NABD=NADD+1 
BR(NADD)=NADD 
NFROM (NADD)=NJ 
NTO(NADD)=NE 
TYPE (N ADD )=C 
UALUE (NADD)=C1 
KEY(NADD)=2 
NCAP=NCAP+1 
C 

C*****  COLLECTOR  CAPACITIUE  NONLINEARITY 
C 

115  LL=KK+2 

NADD=NADD+1 
BR(NADD)=NADD 
NFROM ( N ADD ) =NC J 
NTO(NADD)=NJ 
TYP£(NADD)=NC 
NLBN(LL)=NADD 
ACLL. 1)=K/UCB**MU 
ACLL.2)=-A(LLf  lVUCB/B.OOO 
A(LL»3)=A(LL> l)/UCB**2/27.00 
C 

c*****  COLLECTOR  RESISTANCE (LINEAR) 

C 


LTR 

930 

LTR 

940 

LTR 

950 

LTR 

9E0 

LTR 

970 

LTR 

530 

LTR 

990 

LTR 

1000 

LTR 

1010 

LTR 

1020 

LTR 

1030 

LTR 

1040 

LTR 

1050 

LTR 

10E0 

LTR 

1070 

LTR 

1030 

LTR 

1090 

LTR 

1100 

LTR 

1110 

LTR 

1120 

LTR 

1120 

LTR 

1140 

LTR 

1150 

LTR 

llGO 

LTR 

1170 

LTR 

1180 

LTR 

1190 

LTR 

1200 

LTR 

1210 

LTR 

1220 

LTR 

1230 

LTR 

1240 

LTR 

1250 

LTR 

12B0 

LTR 

1270 

LTR 

1280 

LTR 

i290 

LTR 

1300 

LTR 

1310 

LTR 

1320 

LTR 

1330 

LTR 

1340 

LTR 

1350 

LTR 

13E0 

LTR 

1370 

LTR 

1330 

LTR 

1390 

LTR 

1400 

LTR 

1410 

LTR 

1420 

LTR 

1430 

LTR 

1440 

LTR 

1450 

LTR 

14SC 

LTR 

1470 

LTR 

1430 

LTR 

1490 

LTR 

1500 

LTR 

1510 

LTR 

1520 
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5-4.  System  Dependent  Cards 

Program  PRANC  was  developed  on  the  CDC  6500/6600  computer  system  at 
Purdue  University.  The  system  dependent  cards  contained  in  the  program  are 
listed  in  Table  5-1. 


Table 

Sub-Program 


5-1.  System  Dependent  Cards 
Card  Identification  Number 


AMAIN 
GZOC 
J  SEP 


AMN  2200,6000,6430 
GZC  380 
JSP  230,250 


The  sub-programs,  and  their  functions  called  by  the  cards  listed  in 
Table  5-1  are  as  follows: 

SECOND:  Subroutine  SECOND  is  used  to  determine  the  elapsed  time  in  seconds 
in  performing  a  sequence  of  PRANC  phrases. 

LINEQ4:  Subroutine  LINEQ4  is  a  linear  equation  solver  routine,  used  to  in¬ 
vert  a  complex  matrix. 

ISHFTLA  ( Iy N) :  is  used  to  perform  3n  N-place  arithmetic  left  shift  on  I 
(ci rcular) . 

ISHFTRA  C I_,N) :  is  used  to  perform  an  N-place  arithmetic  right  shift  on  I 
(end-off,  sign  fill);  e.g.  K  =  ISHFTRA  (1,1)  sets  K  to  0;  K  =  ISHFTRA  (1,0) 
sets  K  to  1. 


J 
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CHAPTER  6 


CONCLUDING  REMARKS 

As  stated  earlier,  the  fundamental  objective  underlying  this  research 
effort  was  to  examine  the  computational  aspect  of  the  Volterra  series 
method.  In  the  process,  we  developed  an  efficient  algorithm  for  adapting 
the  Volterra  series  method  for  computer-aided  analysis  of  nonlinear  cir¬ 
cuits.  A  semi-symbolic  approach  for  analyzing  the  linearized  part  of  the 
nonlinear  circuit  was  used  as  the  basis  for  this  development.  The  algorithm 
was  implemented  in  a  computer  program,  entitled  PRANC.  The  main  contribu¬ 
tions  of  this  effort  may  thus  be  identified  as  follows: 

(1)  The  development  of  an  efficient  algorithm  for  adapting  the  Volterra 
series  method  for  computer-aided  analysis. 

(2)  The  development  of  a  symbolic  approach  for  analyzing  the  linearized 
c i rcui t . 

(3)  The  development  of  a  digital  computer  program  for  the  spectrum  analysis 
of  nonlinear  circuits. 

As  part  of  the  effort,  several  network  examples  were  exercised  on 
PRANC.  The  execution  times  involved  in  these  examples  indicate  that  PRANC 
is  highly  efficient  from  a  computational  standpoint.  Networks  with  several 
nonlinearities,  several  energy  storage  elements  (as  in  Example  4-2),  and 
multiple  input  frequencies  involve  execution  times  which  are  small  and  easi¬ 
ly  affordable. 

The  fundamental  criterion  in  the  development  of  PRANC  was  computational 
efficiency.  The  results  from  the  use  of  PRANC  indicate  that  this  criterion 


r 


has  been  met  successfully.  The  "ease  of  use”,  which  is  another  important 
performance  measure  in  software  development,  was  not  given  as  much  weight  in 

this  effort.  As  part  of  continuing  work,  it  is  recommended  that  several 
user-oriented  features,  such  as  free-format  input,  built-in  device  model¬ 
ling,  parameter  variation  feature,  etc.,  be  incorporated  in  the  program. 
The  computational  efficiency  inherent  in  the  present  version  of  PRANC  to¬ 
gether  with  certain  "ease  of  use"  features  should  render  it  a  powerful  tool 
for  analyzing  nonlinear  circuits. 
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Appendix  A .  A  DEVICE  MODELLING  EXAMPLE 


In  this  section  we  present  an  example  of  how  to  obtain  mathematical 
models  for  nonlinear  devices.  The  mathematical  models  so  developed  can  then 
be  used  to  obtain  equivalent  circuits  for  analysis  purposes. 

Most  devices  commonly  encountered  in  electronics/  where  one  would  be 
interested  in  computing  the  harmonic  distortion  due  to  the  nonlinear  opera¬ 
tion/  are  operated  in  the  active  region  where  the  device  operation  is 
quasi-linear  about  an  operating  point  established  by  the  circuit  bias.  Here 
we  develop  the  incremental  model  for  some  such  devices.  It  is  important  to 
make  a  distinction  between  total  and  incremental  nonlinear  circuits.  Total 
model/  or  global  models,  interrelate  the  total  instantaneous  voltages, 
current,  and/or  charges  in  the  device.  Such  models  are  used  for  operating 
point  or  large-signal  analysis.  The  incremental  or  small-signal  models  for 
devices  are  derived  from  these  global  models  by  some  kind  of  an  approxima¬ 
tion  (usually  a  Taylor  series  expansion)  around  the  operating  point.  In 
deriving  incremental  models,  it  is  desirable  to  have  a  model  that  is  in¬ 
dependent  of  the  bias  point  in  the  normal  active  region,  so  that  the  non¬ 
linear  effects  due  to  a  change  in  the  operating  point  can  be  predicted. 

We  now  present  a  mathematical  model  for  a  semiconductor  diode.  In  the 
commonly  used  small-signal  applications  of  semiconductor  diodes,  two  types 
of  operations  are  encountered:  (1)  forward-bias  (e.g.  mixers);  (2)  reverse- 
bias  (varactor  converter). 

In  the  forward-bias  operation,  the  primary  nonlinearity  is  a  memoryless 
nonlinearity  given  by 

I  -  IsCexp(qV/nkT)  -  1]  (1) 
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where  n  is  the  ideality  factor  for  the  diode.  Then  for  the  forward-biased 
diode  with  a  small-signal  input,  we  can  write  eqn.  (1>  as: 

ID  +  ij  =  IsCexp(qVD/nkt)exp(qvcj/nkT)  -  ID  (2> 

where  I  and  V.  are  the  bias  current  and  voltage,  respectively,  and  i  ,  and 
u  v  a 

are  the  incremental  current  and  voltage.  For  (qv^/nkT)  <  1,  we  have  a 
convergent  Taylor  series  for: 


“  1  /qvd\s 

exp(qvd/nkT)  =  £q  jr 

Substituting  (3)  into  (2)  and  approximating 

I  qVD 

ls  exP  KkT  ' 


=  *s 


qVD  , 

exp  7ST  *  1 


(3) 


we  obtain  the  following: 


I  _9_  v 
D  nkT  d 


(4) 


which  is  in  a  form  suitable  for  analysis  on  PRANC. 

In  the  case  of  the  reverse-biased  diode,  the  primary  nonlinearity  is 
the  nonlinear  junction  capacitance  C(V),  where  C(V)  is  of  the  following 
form : 


C  <V) 


C(0) 

Cl  -  V/$Dk 


(5) 


where  C<0),  $,  and  k  are  generally  specified  by  the  manufacturer. 
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The  charge  stored  in  the  capacitor  of  eqn.  (5)  is: 


V 

Q (V)  =  /  C(v)  dv 
0 

_  _J _ C(0) 

<k_1)  Cl  -  V/4>^  Ck_1 5 


(6) 


Expanding  eqn.  (6)  into  a  Taylor  series  yields: 


GKV  +  v  > 
c  c 


C(V  ) 
c 


<*-vc) 

(k-1) 


+  Vc  +  2!<$-Vc)  + 


k(k+1)vt 


3 !  ( <j>— V  )‘ 
c 


The  incremental  capacitor  current  is  the  change  of  total  charge  with  respect 
to  time.  Since  V  is  a  constant/  we  get 


dv 
_ c 

kC(V  ) 
c 

dv2  k (k+1 )C(V  ) 

c  +  c 

dt 

2!<4>-V  ) 
c 

dt  3  i  C 4>~V  )2 

c 

at  ”c  *-'8> 


Equation  (8)  is  the  mathematical  model  of  the  incremental  nonlinear  capaci¬ 
tance  current.  The  first  term  is  a  linear  capacitor  of  value  C(Vc>,  and  the 

term  in  vn  represent  the  nonlinear  capacitive  terms.  Again,  note  that  eqn. 
c 

(8)  is  in  a  form  suitable  for  analysis  on  PRANC. 

The  models  for  other  nonlinear  devices,  such  as  transistors,  JFETS,  va¬ 
cuum  tubes,  etc.,  can  be  found  using  the  same  kind  of  an  approach. 
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